[Spirosgr]

Ο πιο κάτω κώδικας ...

Sub test()
    Dim i As Long, lastrow As Long
    lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To lastrow
        Cells(i, 4).Value = Cells(i, 1).Value & Cells(i, 2).Value & Cells(i, 3).Value
    Next i
End Sub

... κάνει ακριβώς αυτό που ζητήθηκε στο 1ο ερώτημα.

Δεν ελέγχει όμως αν :

Υπάρχουν κεφαλίδες
Κενά κελιά ενδιάμεσα
Κενά κελιά στο τέλος της στήλης (οπότε επηρεάζει την lastrow)
και πολλά ακόμα που πιθανόν, να είναι εξαρτώμενα από μέρος του μεγαλύτερου αυτοματισμού.

Σημείωση:

Καλό είναι, όταν υπάρχουν εργασίες με κώδικες να
εξετάζονται ολόκληροι για αποφυγή σφαλμάτων.

Δεν θα συνιστούσα την χρήση οποιουδήποτε κώδικα, αν δεν είναι σωστά ενσωματωμένος στο υπόλοιπο έργο.