A列が同じものを見つける

Sub 合体()
    Dim L, C, OldL, OldC2 As Integer
    Dim oldvalue As String
    L = 2 '初期値
    OldL = 1
    oldvalue = Cells(1, 1)
    Do While Cells(L + 1, 1).Value <> ""
        If oldvalue = Cells(L, 1).Value Then
            C = 2
            OldC2 = 2
            '空いているところを見つける
            Do While Cells(OldL, OldC2).Value <> ""
                OldC2 = OldC2 + 1
            Loop
            Do While Cells(L, C).Value <> ""
                Cells(OldL, OldC2).Value = Cells(L, C).Value
                OldC2 = OldC2 + 1
                C = C + 1
            Loop
        Else
            oldvalue = Cells(L, 1)
            OldL = L
        End If
        L = L + 1
    Loop
End Sub