Place executed macro code to next available cell down

[suprsnipes]

How can I make a change in the following code so that instead of placing the contents in cell A1 I am able to find the next available row if A1 or A2, A3 and so is already used...

ThisWorkbook.Sheets("Sheet1").Range("A1") =

Regards,
suprsnipes

 

[Peter_SSs]

Try

ThisWorkbook.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1).Value =

 

[suprsnipes]

Appreciate the help, thanks.