Hi Evad,

Try:

'=============
Public Sub Tester001()
Dim WB As Workbook
Dim SH As Worksheet
Dim rng As Range
Dim LRow As Long
Dim i As Long

Application.ScreenUpdating = False

Set WB = ActiveWorkbook '<<==== CHANGE
Set SH = WB.Sheets("Sheet2") '<<==== CHANGE

LRow = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = SH.Range("A2:A" & LRow)

For i = LRow To 2 Step -1
With Cells(i, "A")
.Offset(1).Resize(7).EntireRow.Insert
.Resize(8, 3).Value = .Resize(1, 3).Value
.Offset(0, 3).Resize(8, 1).Value = _
Application.Transpose(.Offset(0, 3).Resize(1, 8))
End With
Next i
SH.Columns("E:K").Delete

Application.ScreenUpdating = True

End Sub
'<<=============


---
Regards,
Norman


"Evad" wrote in message
...
the number of reference columns is actually always 8. there are about
5000
rows of data.

"Norman Jones" wrote:

Hi Evad,

Are there always four ref columns?

The existing data comprises multiple rows?


---
Regards,
Norman