Copy to blank row modification required

Hi,

I use the following code to copy cells from 1 sheet to another into the next blank row.

I would like to code to run as is but go to the row where the copied cells are pasted in to.

Please Login or Register  to view this content.

Sub Inv_1_Acc_In_1()
Application.ScreenUpdating = False
Dim destRange As Range
Dim aRow As Range
For Each aRow In Sheets("Accounts").Range("C5:L39,C55:L89,C105:L139,C155:L189,C205:L239,C255:L289,C305:L339,C355:L389,C405:L439,C455:L489,C505:L539,C555:L589").Rows
If Application.CountA(aRow) = 0 Then
Sheets("Inv 1").Range("Y8:AG8").Copy
aRow.Cells(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = False
Exit For
End If
Next
End Sub

Please Login or Register  to view this content.

Thanks for your reply,

I get the following error when the additional line is inserted.

Run-time error '1004:

Activate method of Range class failed

That's the one, Many thanks :-)