Copying of Data from one column to another (misaligned data)

[ExcelPupper]

Hi, I have this set of data (picture 1) that is generated from the system and I need to format it the same as picture 2 (kindly refer to pictures below)
As of now, I am stuck on identifying the first and last row for items ordered per Supplier in order to insert the respective Supplier on the column beside the items.
Any help is much appreciated. Thanks!

PS: Items ordered per Supplier is variable

Sub CopySupplierName()
Dim lr As Long


    lr =
    Range("C4:C" & lr).Value = Range("A" & 4 - 2).Value
 

End Sub

Picture 1

Picture 2

 

[Fluff]

How about

Sub ExcelPupper()
   Dim Rng As Range
   
   With Range("B2", Range("B" & Rows.Count).End(xlUp))
      For Each Rng In .SpecialCells(xlConstants).Areas
         Rng.Offset(, 1).Value = Rng.Offset(-2, -1).Resize(1).Value
      Next Rng
      .SpecialCells(xlBlanks).EntireRow.Delete
   End With
End Sub

 

[ExcelPupper]

How about

Sub ExcelPupper()
   Dim Rng As Range
  
   With Range("B2", Range("B" & Rows.Count).End(xlUp))
      For Each Rng In .SpecialCells(xlConstants).Areas
         Rng.Offset(, 1).Value = Rng.Offset(-2, -1).Resize(1).Value
      Next Rng
      .SpecialCells(xlBlanks).EntireRow.Delete
   End With
End Sub

works like a charm. Thanks!

 

[Fluff]

You're welcome & thanks for the feedback.