Sub test()



Dim s1 As Worksheet, s2 As Worksheet, i As Long, k As Long



Set s1 = Sheets("isimler")

Set s2 = Sheets("tablo")



son = s1.Cells(Rows.Count, 1).End(3).Row

Application.ScreenUpdating = False

If son < 3 Then GoTo son



k = 3

For i = 3 To son

    For k = k To Rows.Count

        If s2.Cells(k, 1).Value = "" Then

            s2.Range("A" & k).Resize(1, 3).Value = Union(s1.Range("A" & i), s1.Range("B" & i), s1.Range("C" & i)).Value

            k = k + 1

            Exit For

        End If

    Next

Next



son:

Application.ScreenUpdating = True

Set s1 = Nothing

Set s2 = Nothing

End Sub