Try this code...
Sub CAPITALISATION():
Dim n As Long, C As Long, Ac As Long, Ray As Variant, t
t = Timer
Ray = Sheets("SITE_ASSUMPTIONS").Range("p9").CurrentRegion
ReDim nray(1 To UBound(Ray, 1) * 2, 1 To 6)
For n = 2 To UBound(Ray, 1)
If Ray(n, 4) = "New built" Then
C = C + 1
For Ac = 1 To 5
nray(C, Ac) = Ray(n, Ac)
nray(C, 6) = "Engineers"
Next Ac
C = C + 1
For Ac = 1 To 5
nray(C, Ac) = Ray(n, Ac)
nray(C, 6) = "Site Finders"
Next Ac
End If
If Ray(n, 4) = "Renovation" Then
C = C + 1
For Ac = 1 To 5
nray(C, Ac) = Ray(n, Ac)
nray(C, 6) = "Engineers"
Next Ac
End If
Next n
With Sheets("CAPITALISATION")
.Cells(1).CurrentRegion.Offset(1).ClearContents
.Range("A2").Resize(C, 6) = nray
End With
End Sub
Bookmarks