Sub sdd()
Dim i As Long, lr As Long, lr2 As Long, cell As Range
Application.ScreenUpdating = False
For i = 1 To 5
    Set cell = Range("J1:L1").Find(Cells(1, i))
    If Not cell Is Nothing Then
        lr = Cells(Rows.Count, i).End(xlUp).Row
        lr2 = Cells(Rows.Count, cell.Column).End(xlUp).Row
        Range(Cells(2, i), Cells(lr, i)).Copy Destination:=Cells(lr2, cell.Column)
    End If
Next i
Application.ScreenUpdating = True
End Sub