Copy to next blank row
It worked in my test with empty cells in the range A16:A20. But you get the
error if they all have data as rownumber is not set.
--
HTH
RP
(remove nothere from the email address if mailing direct)
"Defoes Right Boot" wrote in
message ...
Hi
I have a few cells of data which I need to copy to the next blank row of
another sheet. I can find the row number required by doing this :
Dim Rownumber As Integer
If Range("A20").Value = "" Then Rownumber = 20
If Range("A19").Value = "" Then Rownumber = 19
If Range("A18").Value = "" Then Rownumber = 18
If Range("A17").Value = "" Then Rownumber = 17
If Range("A16").Value = "" Then Rownumber = 16
But I am then having problems with defining the destination to copy to. I
have tried using :
Worksheets("CURRENT").Range("B2").Copy _
Destination:=Worksheets("Balance Order Form").Cells(2, Rownumber)
but I keep getting Runtime Error '1004 ' Application defined or object
defined error, and I don't know what that means or how I should get round
it.
Can someone help? Many thanks
Phil
|