A code to run a macro

[Unexpc]

Hi guys
I have a code thats working with run a macro
Exist a code when a range of specific cell is fill, after that runing macro?

 

[GWteB]

If source and target areas on Sheet2 stay the same the code below is likely to do what you want.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim lRow As Long
    
    If Target.Count = 1 And Target.Column = 2 And Target.Row >= 67 Then
        If (Target.Row - 35) Mod 32 = 0 Then
            If Target.Value <> "" Then
                lRow = (((Target.Row - 35) * 34) / 32) + 7
                With ThisWorkbook.Sheets("Sheet2")
                    .Range("A" & lRow & ":H" & lRow + 33).Copy .Range("A" & lRow + 34)
                End With
            End If
        End If
    End If
End Sub

 

[Unexpc]

If source and target areas on Sheet2 stay the same the code below is likely to do what you want.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim lRow As Long
   
    If Target.Count = 1 And Target.Column = 2 And Target.Row >= 67 Then
        If (Target.Row - 35) Mod 32 = 0 Then
            If Target.Value <> "" Then
                lRow = (((Target.Row - 35) * 34) / 32) + 7
                With ThisWorkbook.Sheets("Sheet2")
                    .Range("A" & lRow & ":H" & lRow + 33).Copy .Range("A" & lRow + 34)
                End With
            End If
        End If
    End If
End Sub

Thank You