Hey All,
Looking for a bit of help to speed up a macro if at all possible. At the minute it takes approx. 30 seconds per line it has to copy. Some of the sheets could have 100 lines to copy so waiting nearly an hour isn’t ideal.
The code I have is below. Column A on the Active Sheets is populated by “=COUNTIFS('Tax Payover'!S:S,G14,'Tax Payover'!V:V,J14)+IF(AV14>0,"1","0")” G is a Unique identifier, J is a code and AV is a Tax Value.

Sub CopyTax()
Dim LR1 As Long, Cell As Range, matchRow As Long
With Sheets("Tax Payover")
LR1 = .Range("O" & .Rows.Count).End(xlUp).Row + 1

For Each Cell In Sheets(ActiveSheet.Name).Range("A:A")
If Cell.Value = "1" Then
matchRow = Cell.Row
Intersect(Sheets(ActiveSheet.Name).Rows(matchRow), Sheets(ActiveSheet.Name).Columns("B:AW")).Copy .Range("N" & LR1)
LR1 = LR1 + 1
End If
Next
End With
End Sub


I hope this is all the information you need. If not let me know what I am missing and I will update.

Thanks for the Help.
John