Snasui Excel Forum

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B7:B2000")) Is Nothing Then
        If Cells(ActiveCell.Row, 4) <> 0 Then
            Selection.EntireRow.Delete
        End If
    End If
End Sub

Code: Select all

    Rows("7:7").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
    Range("B2:F2").Select
    Selection.Copy
    Range("B7").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select

Code: Select all

'Other code
    Range("b2:f2").Copy
    Range("b7:f7").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Application.CutCopyMode = False
'Other code