Data Re-arrange after import

[DiscoSte]

Hi Folks

I'm after some help if possible. I run an import, and get varying row lengths of data, always seperated by two rows, as per the top table in white. I would like to re-arranage, after import as per the table in grey. I want to copy two entries from the top row of each segment to Column 1 and 2, one cell above the data.

Any advice would be greatly appreciated.

Many Thanks.

 

[Fluff]

How about

Sub DiscoSte()
   Dim Rng As Range
   
   For Each Rng In Range("E:E").SpecialCells(xlConstants).Areas
      Rng.Offset(-1, -4).Resize(1, 2).Value = Rng.Resize(1, 2).Value
   Next Rng
End Sub

 

[DiscoSte]

How about

Sub DiscoSte()
   Dim Rng As Range
  
   For Each Rng In Range("E:E").SpecialCells(xlConstants).Areas
      Rng.Offset(-1, -4).Resize(1, 2).Value = Rng.Resize(1, 2).Value
   Next Rng
End Sub

Thanks a lot Fluff, very much appreciated.

 

[Fluff]

You're welcome & thanks for the feedback.