Sub test()
Dim zone As Range
x = Range("A" & Rows.Count).End(xlUp).Row
y = Range("B" & Rows.Count).End(xlUp).Row
w = Range("B" & Rows.Count).End(xlUp).Row
derlin = 0
If x > derlin Then derlin = x
If y > derlin Then derlin = y
If w > derlin Then derlin = w
For n = 2 To derlin
If Range("A" & n) <> "" Or Range("B" & n) <> "" Or Range("C" & n) <> "" Then
If Not zone Is Nothing Then
Set zone = Application.Union(zone, Range("A" & n & ":C" & n))
Else
Set zone = Range("A" & n & ":C" & n)
End If
End If
Next
zone.Copy Destination:=Range("F2")
End Sub