Guys,

First time on here & I'm a bit of a VBA newbie. I'm trying t
construct a pretty simple macro to scroll down through the contents o
a worksheet and where a given cell is "" to take the entire row
contents to another sheet. So far I'm up to here ...


RownumberEndWorksheet = 14
Do Until Sheets("All Transfer Dat
F24.89_3").Cells(RownumberEndWorksheet, 5) = ""
If Sheets("All Transfer Data F24.89_3").Cells(RownumberEndWorksheet
13) = "" Then

At this point I've nominated all the individual cells to be taken fro
"All Transfer Data F24.89_3" by specifyin
cells(RownumberEndWorksheet, applicable column ref). This is tediou
as there's lots. Then I look to the sheet to paste data & find th
next available line as follows ;

RownumberNext = 5
Do Until Sheets("Paste Data").Cells(RownumberNext, 2) = ""
RownumberNext = RownumberNext + 1
Loop

Worksheets("Paste Data").Cells(RownumberNext, 2) = VarBarcode

etc.



Please can someone show me how to select the entire contents of a ro
when I've found one whe

If Sheets("All Transfer Data F24.89_3").Cells(RownumberEndWorksheet
13) = ""

and then get the data in to the paste sheet.


I'm sorry this is probably childs play to someone with some experienc
but I'm struggling here. Much appreciated i
advance!!!!!!!!!!!!!!!!!!!

--
GB90018
-----------------------------------------------------------------------
GB900180's Profile: http://www.excelforum.com/member.php...fo&userid=3042
View this thread: http://www.excelforum.com/showthread.php?threadid=50190