Copy and Paste Value to multiple cell range then loop (Excel)

[j_saints]

Hello all!

I have a sample invoice detail that was converted into Excel but I will need to extract the values from the customer invoice. In order to do this, I will first need to copy and paste the location to column C

Here's what it looks like when it's done (I'd sort this by column C so it is grouped by company)

It would really take time to do copy+paste manually so I was wondering if there's a way in Excel to automate this step. I'm quite new to VBA and still learning, thankfully I found this forum for guidance. I tried recording the process via macro but not so sure how to make it loop if I'm doing it for 100+ companies.

Any help would be much appreciated! ? Thank you all!

 

[Fluff]

Hi & welcome to MrExcel.
Will each section always begin with Gross Wages?

 

[j_saints]

Hi & welcome to MrExcel.
Will each section always begin with Gross Wages?

Hello, thank you so much for welcoming me! Yes, each section always begin with Gross Wages.

 

[Fluff]

Ok, how about

Sub jsaints()
   Dim Rng As Range
   
   For Each Rng In Range("B:B").SpecialCells(xlConstants, xlNumbers).Areas
      If Rng.Offset(, -1).Resize(1) = "Gross Wages" Then
         Rng.Offset(, 1).Value = Rng.Offset(Rng.Count - 1, -1).Resize(1)
      End If
   Next Rng
End Sub

 

[j_saints]

Ok, how about

Sub jsaints()
   Dim Rng As Range
  
   For Each Rng In Range("B:B").SpecialCells(xlConstants, xlNumbers).Areas
      If Rng.Offset(, -1).Resize(1) = "Gross Wages" Then
         Rng.Offset(, 1).Value = Rng.Offset(Rng.Count - 1, -1).Resize(1)
      End If
   Next Rng
End Sub

Wow, it worked!! Thank you so much for the help Fluff and kudos to this site for helping and guiding beginners like me!! I really appreciate it!!! ? ?

 

[Fluff]

Glad to help & thanks for the feedback.