Excel VBA help rearranging data on worksheet

[hauntedfarm]

I have not worked with VBA that long and I have an initial worksheet that contains property info, the key of the row will be the customer no.
Each customer can have unlimited properties. For the first instance of the customer id I need it to copy to the worksheet2 (or leave it in the same spaces) in the first spaces,
for the second instance of the customer number it will append the data to sheet 2( or row 1 sheet 1 for the existing customer) in the same row but in spaces for second info etc. See below

INITIAL FILE
customer id property1 amtoffered1 parcel address1 property2 amtoffered2 percel2 address2
123 65734 1000 b 123 Lane
123 23114 500 a 222 dice
444 23443 100 c 11 smoke

FINAL WORKSHEET 2
customer id property1 amtoffered1 parcel address1 property2 amtoffered2 percel2 Address2
123 65734 1500 b 123 Lane 23114 500 a 222 dice
444 23443 100 c 11 smoke

[MickG]

Try this:-
NB:- This code will modify your original Data sheet, Please make Backup.!!!

Sub MG20Dec35
Dim Rng         As Range
Dim Dn          As Range
Dim n           As Long
Dim nRng        As Range
Dim Q           As Variant
Dim oHds        As Variant
oHds = Array("id", "property", "amtoffered", "perce", "address")
    Set Rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
        With CreateObject("scripting.dictionary")
            .CompareMode = vbTextCompare
For Each Dn In Rng
  
    If Not .Exists(Dn.Value) Then
        .Add Dn.Value, Array(Dn.Offset(, 1), 0, 1)
    Else
        ReDim ray(1 To 5)
        Q = .Item(Dn.Value)
            Q(2) = Q(2) + 1
            Q(1) = Q(1) + 5
            For n = 0 To UBound(oHds)
                If n > 0 Then
                    ray(n + 1) = oHds(n) & Q(2)
                Else
                    ray(n + 1) = oHds(n)
                End If
             Next n
                Range("B1").Offset(, Q(1)).Resize(, 5) = ray
                Dn.Offset(, 1).Resize(, 5).Copy Q(0).Offset(, Q(1))
            If nRng Is Nothing Then
                Set nRng = Dn
            Else
                Set nRng = Union(nRng, Dn)
            End If
       .Item(Dn.Value) = Q
    End If
Next
End With
If Not nRng Is Nothing Then nRng.EntireRow.Delete
End Sub

Regards Mick

[hauntedfarm]

Mick,
Trying code right now and working on it, have been sick, so I am slightly behind. I am so grateful for your help. I will let you know how it goes.
Thanks,
Kim