For some reason I keep getting one of those annoying "Runtime 1004" errors when attempting to use the following copy/paste method. Still learning and can't seem to figure out where I've gone astray.
where r = last row of data on sheet1:
Heading home for now. Thanks for any help!
Teri
Good decisions come from Wisdom...
Wisdom comes from experience...
Experience comes from bad decisions
where r = last row of data on sheet1:
Code:
For m = 1 To k
If WB.Worksheets("Data").Cells(m, 1).Value = "" Then
WB.Worksheets("Data").Range(m & "2:" & m & "10").Copy
r = r + 1
WB.Worksheets(1).Range(r & "3").PasteSpecial Paste:=xlValues
WB.Worksheets(1).Cells(r, 1).Formula = "Y"
End If
Next m
Heading home for now. Thanks for any help!
Teri
Good decisions come from Wisdom...
Wisdom comes from experience...
Experience comes from bad decisions