|Perhaps if you posted the macro you've been trying, we could help you modify it.|
Since we need some specific information before we could offer any code, it would probably be just as easy to "fix" what you have already written as opposed to starting from scratch.
If it helps, the following instruction is typically used to find the last cell with data in a given column, Column A in this case:
lastRow = Range("A" & Rows.Count).End(xlUp).Row
To find the next empty row, this is often used:
lastRow = Range("A" & Rows.Count).End(xlUp).Row + 1
Please click on the following line before posting your code. That link will provide instructions on how to post code in this forum.
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.