Hi I have already started my VBA and it will copy and paste but when I add new Data I would like to add at the end of the data I already have
lastrow = Sheets("Raw Data").Range("A" & Rows.Count).End(xlUp).Row
r = 2
For i = 2 To lastrow
If Sheets("Raw Data").Cells(i, 25) = "Payment" Then
Sheets("Raw data").Range("C" & i & ":F" & i & ",J" & i & ":N" & i).Copy Destination:=Sheets("Exception Report").Range("B" & r)
r = r + 1
End If
Next i
lastrow = Sheets("Raw Data").Range("A" & Rows.Count).End(xlUp).Row
r = 2
For i = 2 To lastrow
If Sheets("Raw Data").Cells(i, 25) = "Payment" Then
Sheets("Raw data").Range("C" & i & ":F" & i & ",J" & i & ":N" & i).Copy Destination:=Sheets("Exception Report").Range("B" & r)
r = r + 1
End If
Next i