Panda
11-24-2010, 09:52 AM
Hi There,
I have found some code to copy data from worksheet to another, however I am struggling to tweak it so that it only copies data from the cells that are not blank.
Any ideas? Below is the code that I am trying to tweak.
Sub Copy_Input_Data()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim Dest As Range
Set Ws1 = Sheets("Input_Screen")
Set Ws2 = Sheets("Live_Screen")
Set Dest = Ws2.Range("B6").End(xlDown).Offset(1)
Ws1.Range("B11:J17").Copy
Dest.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Thanks in advance
Phil
I have found some code to copy data from worksheet to another, however I am struggling to tweak it so that it only copies data from the cells that are not blank.
Any ideas? Below is the code that I am trying to tweak.
Sub Copy_Input_Data()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim Dest As Range
Set Ws1 = Sheets("Input_Screen")
Set Ws2 = Sheets("Live_Screen")
Set Dest = Ws2.Range("B6").End(xlDown).Offset(1)
Ws1.Range("B11:J17").Copy
Dest.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Thanks in advance
Phil