Macro Help

[lgirardin]

How does one go about writing a macro that copies multiple ranges of cells, but only copies the ones with data, and pastes them into a different workbook/worksheet? This is what I have so far, but I don't know how to copy only cells with data. Any help would be appreciated!

 

[lgirardin]

Sub Transfer1()
'
' Transfer1 Macro
'

'
ActiveSheet.Range("A9:A45").Copy Destination:=Workbook.Worksheet.Range("B7:B43")
ActiveSheet.Range("A47:A76").Copy Destination:=Workbook.Worksheet.Range("B44:B73")


End Sub

 

[lgirardin]

Sub Transfer1()
'
' Transfer1 Macro

'
ActiveSheet.Range("A9:A45").Copy Destination:=Workbook.Worksheet.Range("B7:B43")
ActiveSheet.Range("A47:A76").Copy Destination:=Workbook.Worksheet.Range("B44:B73")

ActiveSheet.Range("C9:C45").Copy Destination:=Workbook.Worksheet.Range("C7:C43")
ActiveSheet.Range("C47:C76").Copy Destination:=Workbook.Worksheet.Range("C44:C73")
ActiveSheet.Range("E9:E45").Copy Destination:=Workbook.Worksheet.Range("F9:F43")
ActiveSheet.Range("E47:E76").Copy Destination:=Workbook.Worksheet.Range("F44:F73")
End Sub