asked on
Sub x()
Dim r As Long
Sheets("Output").Select
With Sheets("Output")
r = .Range("A" & Rows.Count).End(xlUp).Row
.Range("N2").Formula = "=IF(ISNUMBER(MATCH($B2,'Raw Data'!$A$2:$A$1000,0)),INDEX('Raw Data'!$B$2:$I$1000,MATCH($B2,'Raw Data'!$A$2:$A$1000,0),COLUMNS($N2:N2)),"""")"
.Range("O2").Formula = "=IF(ISNUMBER(MATCH($B2,'Raw Data'!$A$2:$A$1000,0)),INDEX('Raw Data'!$B$2:$I$1000,MATCH($B2,'Raw Data'!$A$2:$A$1000,0),COLUMNS($N2:O2)),"""")"
.Range("P2").Formula = "=IF(ISNUMBER(MATCH($B2,'Raw Data'!$A$2:$A$1000,0)),INDEX('Raw Data'!$B$2:$I$1000,MATCH($B2,'Raw Data'!$A$2:$A$1000,0),COLUMNS($N2:P2)),"""")"
.Range("Q2").Formula = "=IF(ISNUMBER(MATCH($B2,'Raw Data'!$A$2:$A$1000,0)),INDEX('Raw Data'!$B$2:$I$1000,MATCH($B2,'Raw Data'!$A$2:$A$1000,0),COLUMNS($N2:Q2)),"""")"
.Range("R2").Formula = "=IF(ISNUMBER(MATCH($B2,'Raw Data'!$A$2:$A$1000,0)),INDEX('Raw Data'!$B$2:$I$1000,MATCH($B2,'Raw Data'!$A$2:$A$1000,0),COLUMNS($N2:R2)),"""")"
.Range("S2").Formula = "=IF(ISNUMBER(MATCH($B2,'Raw Data'!$A$2:$A$1000,0)),INDEX('Raw Data'!$B$2:$I$1000,MATCH($B2,'Raw Data'!$A$2:$A$1000,0),COLUMNS($N2:S2)),"""")"
.Range("T2").Formula = "=IF(ISNUMBER(MATCH($B2,'Raw Data'!$A$2:$A$1000,0)),INDEX('Raw Data'!$B$2:$I$1000,MATCH($B2,'Raw Data'!$A$2:$A$1000,0),COLUMNS($N2:T2)),"""")"
.Range("U2").Formula = "=IF(ISNUMBER(MATCH($B2,'Raw Data'!$A$2:$A$1000,0)),INDEX('Raw Data'!$B$2:$I$1000,MATCH($B2,'Raw Data'!$A$2:$A$1000,0),COLUMNS($N2:U2)),"""")"
.Range("M2").Formula = "=IF(N2<>"""",B2,"""")"
.Range("V2").Formula = "=IF(ISNUMBER(MATCH($B2,'Raw Data'!$A$2:$A$1000,0)),INDEX('Raw Data'!$B$2:$J$1000,MATCH($B2,'Raw Data'!$A$2:$A$1000,0),COLUMNS($N2:V2)),"""")"
.Range("W2").Formula = "=IF(C2=X2,""YES"",""No"")"
.Range("K2").Formula = "=IF(AA2=""Yes"",SUM(J2,I2),SUM(J2))"
.Range("Y2").Formula = "=c2*1"
.Range("Z2").Formula = "=x2*1"
.Range("AA2").Formula = "=if(Y2=Z2,""Yes"",""No"")"
.Range("K2:AA2").Copy .Range("K2:AA" & r)
End With
End Sub
test.zip