Like this it is correct
Sub test()
Dim ws1 As Worksheet, ws2 As Worksheet, nr As Long, lr As Long
Set ws1 = Sheets("Renewal Report")
Set ws2 = Sheets("Invoice Audit")
lr = ws1.Range("A" & Rows.Count).End(xlUp).Row
With ws2
For x = 3 To lr
nr = Application.CountA(ws2.Range("A:A")) + 3
If ws1.Range("A" & x).EntireRow.Hidden = False Then
.Range("A" & nr).Resize(1, 12).Value = Array(ws1.Range("C" & x), ws1.Range("D" & x), ws1.Range("E" & x), ws1.Range("F" & x), _
ws1.Range("G" & x), ws1.Range("H" & x), ws1.Range("I" & x), "", ws1.Range("J" & x), _
ws1.Range("L" & x), ws1.Range("M" & x), ws1.Range("N" & x))
End If
Next
End With
End Sub
Kind regards
Leo
Bookmarks