Microsoft Office Forums - View Single Post - Way to autoshift cells down

Thread: Way to autoshift cells down

View Single Post

Old

01-21-2020, 02:17 PM

Logit

Logit is offline

Logit uses Windows 10

Windows 10 Logit uses Office 2007

Logit uses Office 2007

Office 2007

Expert

Join Date: Jan 2017

Posts: 533

Logit is a jewel in the rough

Logit is a jewel in the rough

Logit is a jewel in the rough

Default

Here is one method :

Paste in the Sheet Level Module :

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("G2").Value <> "" Then
        Range("G2").Insert Shift:=xlDown
    End If
End Sub

Reply With Quote