Dim FirstBlankCell as Range
Set FirstBlankCell=Range("A" & rows.Count).end(xlup).offset(1,0)
FirstBlankCell.Activate

Note that you do not need to select a cell to paste data into it, and it is
slowing down your macro.

Look at this:

Worksheets("Sheet2").Range("A2:D2").copy Destination:=FirstBlankCell

Regards,
Per

"Wes_A" skrev i meddelelsen
...
MS XP Pro, MS Office 2007.
Can anyone assist with macro to find the first blank cell in a column and
then to make it the active (selected) cell so that data can be pasted to
it
and the row in which it is placed.
I cant find a stable and reliable solution with the Find Blank Cell
procedure in the menu.