shift and down keys in macro

[CousinExcel]

Hi,
I want to mark four cells.
How can I write shift+down+down+down in a macro.
(Then I say copy paste etc).
Thanks
Cousin Excel

 

[Jacob Skaria]

Activecell.Resize(4).Select
Activecell.Resize(4).Copy

OR starting from cell A1 copy 4 cells to the same sheet cell J1

Range("A1").Resize(4).Copy Range("J1")

 

[CousinExcel]

Hi and thank you Jacob Skaria.
This was something new for me and thank you.
I still need to use shift and down keys.
I hope shift and down keys will solve my probem. There are filtered cells
and when I say things other than shift and down keys it is copying hidden
(filtered away) cells I believe but I need to copy only four cells I see on
screen after filtering.

 

[Don Guillett]

This will find the last row in the active column

Sub shiftdowndowndown()
ar = ActiveCell.Row
ac = ActiveCell.Column
'MsgBox ac
lr = Cells(Rows.Count, ac).End(xlUp).Row
'MsgBox lr
Cells(ar, ac).Resize(lr).Copy
End Sub