I am trying to run the following Macro and I'm not having any troubl
except every 4th row in the dataset is blank, causing this macro t
stop dead in its tracks. What can I do to add "filler" data in ever
4th row for the length of the dataset or perhaps delete every 4th ro
and move the data up?

Thanks particularly to Tom O. who has been a great help this week.

Dim rng As Range
With Worksheets("Sheet1")
Set rng = .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown))
End With
With Worksheets("Sheet2")
.Range(rng.Address).FormulaR1C1 = "=Sheet1!RC"
End Wit

--
Sandema
-----------------------------------------------------------------------
Sandeman's Profile: http://www.excelforum.com/member.php...fo&userid=3244
View this thread: http://www.excelforum.com/showthread.php?threadid=52358