das folgende könnte helfen:
(Ich habe mal unterstellt, das deine Daten in der jeweils ersten Zeile anfangen. Wenn nicht, dann bitte entsprechend anpassen.)
Sub test()
Dim lRow&
lRow = Workbooks("DeineMappe.xls").Worksheets("Tabelle1").Cells(Rows.Count, 7).End(xlUp).Row 'Spalte G ist die 7. Spalte
Dim rngA As Range, rngB As Range, rngC As Range, rngUnion As Range
Set rngA = Range("A1:A" & lRow&)
Set rngB = Range("C1:C" & lRow&)
Set rngC = Range("G1:G" & lRow&)
Set rngUnion = Application.Union(rngA, rngB, rngC)
rngUnion.Select
End Sub
Einfach ausprobieren, viel Spaß
und viele Grüße aus Bruchköbel
Friedel