I need to copy cell contents from one worksheet to another but do not want empty cells included. The code needs to locate the first and last row and columns in sheet 1 that has the data, then copy paste-special it to another worksheet.
I think it goes something like this (but I can't get it to work):
Sheets("Sheet1").Select
Selection.Copy
With Range("A6:G" & Cells(Rows.Count, "A").End(xlUp).Row)
End With
Sheets("Sheet2").Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A7").Select
I think it goes something like this (but I can't get it to work):
Sheets("Sheet1").Select
Selection.Copy
With Range("A6:G" & Cells(Rows.Count, "A").End(xlUp).Row)
End With
Sheets("Sheet2").Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A7").Select