[ChrisGT7]

Για δοκίμασε αυτόν τον κώδικα καλύτερα:

Option Explicit

Sub METAFORA()
    Dim SC As Byte
    Dim R1 As Long, R2 As Long
    Dim C1 As Long, C2 As Long
    
    Application.ScreenUpdating = False
    Range("DC3:DF" & Rows.Count).ClearContents
    
    For SC = 1 To 4
        R2 = 3
        C2 = 106 + SC
        For C1 = 2 + SC * 21 To 21 + SC * 21
            R1 = 3
            Do
                If Cells(R1, C1).Value = "" Then
                    R1 = 0
                Else
                    Cells(R2, C2).Value = Cells(R1, C1).Value
                    R1 = R1 + 1
                    R2 = R2 + 1
                End If
            Loop While R1 > 0
        Next
    Next
    
    Application.ScreenUpdating = True
End Sub

Δεν υπάρχει πρόβλημα να αλλάξεις το Τμήμα, μιας και δεν υπάρχει πλέον στον κώδικα.

Η For...To... δέχεται μόνο αριθμούς, οπότε δεν μπορείς να χρησιμοποιήσεις γράμματα.