Hi
in general
Set FromSheet = Worksheets("DataFromHere")
Set ToSheet = Worksheets("DataToHere")

If Trim(ToSheet.Range("B1"))="" then
ToSheet.Range("B1").Value = FromSheet.Range("B1").Value
End if

This will copy data from B1 on the FromSheet to B1 on the ToSheet (if
it is originally blank).
You probably need more than this?
regards
Paul


On Feb 5, 2:40*pm, drinese18
wrote:
I'm trying to create a macro that will check to see which cells are blank
within the worksheet and copy data from another worksheet into the blank
cells. The tricky part is that the sheet already has data on it and I don't
want it to be sorted or anything of such, I just want the macro to take data
from one cell on a sheet and places it into another cell on another sheet
without affecting the data that is already on the sheet, if anyone can help
me with this that would be great

Thank you