Macro selection, last row + resize + select till 2nd line

[zerosdb]

Hi guys, i'm working in a macro in wich it should delet all the actives cells between column "A" till column "AF" without deleting the the 1st line and the rest of the columnos form AF to the right.

Sub Process1()
'
' Process1 Macro
'
Range("A" & Rows.Count).End(xlUp).Select
ActiveCell.Resize(1, 32).Select 'and i don't know how to resize it again till 2nd line




'
End Sub



thnx!

 

[Fluff]

Hi & welcome to the board.
Is this what you want

Sub process1()
   Range("A2", Range("A" & Rows.count).End(xlUp)).Resize(, 32).Delete xlUp
End Sub