Select last cell and "dragcopy" to next cell down

[sg2004]

Hi all,
I tried to record a macro that would allow me to select the last cell with data in column J and K. And then "DragCopy" this data down into the cells beneath them.

So from J22:K22 to J23:K23... the next time the macro is executed i want it to copy from 23 to 24 instead.
____________

The problem is the following code:
Range("J10").End(xlDown)
can't be edited to include K10. "J10:K10" doesnt work, it selects just the J.
and
the DRAGCOPY code generated by the macrorecorder, can't be edited to do what i want because i dont know how to edit the code to include the Offset(1, 0).Select in the destination

Please help

 

[VoG]

Hello and welcome to MrExcel.

Try

Sub AFill()
Dim LR As Long
LR = Range("J" & Rows.Count).End(xlUp).Row
Range("J" & LR & ":K" & LR).AutoFill Destination:=Range("J" & LR & ":K" & LR + 1)
End Sub

 

[sg2004]

Thanks so much.
That basically does what I needed, (though you're right it is exactly what i asked for).

I forgot to mention, for colum J, I'd like it to just COPY not complete a series. K is working beautifully by the way thank you

 

[VoG]

Perhaps

Sub AFill()
Dim LR As Long
LR = Range("J" & Rows.Count).End(xlUp).Row
Range("J" & LR + 1).Value = Range("J" & LR).Value
Range("K" & LR & ":K" & LR).AutoFill Destination:=Range("K" & LR & ":K" & LR + 1)
End Sub

 

[sg2004]

Haha Perhaps!

Superstar...
Thanks for quick reply. Sorry for my slow one