VBA to count fill cell

[jmazorra]

Hello:

I am looking for a VBA that will count the number of filled cells in column A starting from row A2 (A1 has headers) down and then insert the same amount of rows in sheet 1, sheet 2 and sheet 3 starting at row A7 for all 3.

Any help will be appreciated.

 

[AlphaFrog]

Sub Copy_Status_Report()
    
    Dim rng As Range, ws As Worksheet
    
    Application.ScreenUpdating = False
    
    With Sheets("Status Report")
        Set rng = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
    End With
    
    For Each ws In Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
        ws.Rows(7).Resize(rng.Count).Insert
        rng.Copy Destination:=ws.Range("A7")
    Next ws
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
End Sub

 

[jmazorra]

Awesome, it saved me so much time and cut down on alot of errors.

I appreciate your patience and help