Macro to locate next blank cell foot of column

[craftyexcel]

I need a macro I have written to locate the next blank row in a sheet to enable pasting of new data, whilst retaining the previous above it. A fn to scan down column A to the next available blank cell would be perfect.

 

[elgringo56]

This will find the first blank cell, selet a cell at the top of the colum, ten do this, it selects the first blank cell in the column.

Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select