Excel filldown/rangecopy not working

[khlau]

Hello,

I am trying to copy range A2:J2 down to the last row in column K using the below: i.e. if column K has 24 rows then
range A2:J24 would be complete with the data in A2:J2

my code is:

Sub FilltoEBAPayments()


Dim lastrow As Long
lastrow = Cells(Rows.Count, 11).End(xlUp).Row
Range("A2:J2").AutoFill Destination:=Range("A3:J" & lastrow), Type:=xlFillDefault


End Sub

Doesn't seem to work though with the 1004 error popping up. Grateful for any help, thank you!

 

[MickG]

Re: Excel filldown/rangecopy not working

Try:-

Dim lastrow As Long
 lastrow = Cells(Rows.Count, 11).End(xlUp).Row
 Range("A2:J2").AutoFill Destination:=Range[B][COLOR=#FF0000]("A2[/COLOR][/B]:J" & lastrow), Type:=xlFillDefault

 

[khlau]

Re: Excel filldown/rangecopy not working

thanks for the suggestion, have tried to amend, however nothing happens to my spreadsheet when I execute the subroutine?

- fixed, never mind, thanks for the help Mick, got it all working

 

[MickG]

Re: Excel filldown/rangecopy not working

You're welcome