Zeilenbereich finden & markieren

Private Sub Add_Row_Click()
Dim lngLast As Long
'Letzte benutzte Zelle in Spalte 2 finden
lngLast = Cells(Rows.Count, 2).End(xlUp).Row + 1
'Formeln nachziehen in Spalte B
ActiveCell.FormulaR1C1 = _
"=IF(RC1="""","""",VLOOKUP(RC1,'3.Ref - 3.2.Maße - 3.3.Matrix'!R5C1:R36C9,3,FALSE))"
'Erste Formel in Spalte C eintragen
lngLast = Cells(Rows.Count, 3).End(xlUp).Row + 1
'Formeln nachziehen in Spalte C
ActiveCell.FormulaR1C1 = _
"=IF(RC1="""","""",VLOOKUP(RC1,'3.Ref - 3.2.Maße - 3.3.Matrix'!R5C1:R36C9,4,FALSE))"
'Erste Formel in Spalte D eintragen
lngLast = Cells(Rows.Count, 4).End(xlUp).Row + 1
'Formeln nachziehen in Spalte D
ActiveCell.FormulaR1C1 = _
"=IF(RC1="""","""",VLOOKUP(RC1,'3.Ref - 3.2.Maße - 3.3.Matrix'!R5C1:R36C9,5,FALSE))"
'Erste Formel in Spalte E eintragen
lngLast = Cells(Rows.Count, 5).End(xlUp).Row + 1
'Formeln nachziehen in Spalte E
ActiveCell.FormulaR1C1 = _
"=IF(RC1="""","""",VLOOKUP(RC1,'3.Ref - 3.2.Maße - 3.3.Matrix'!R5C1:R36C9,6,FALSE)*ABS( _
RC9))"
'Erste Formel in Spalte F eintragen
lngLast = Cells(Rows.Count, 6).End(xlUp).Row + 1
'Formeln nachziehen in Spalte F
ActiveCell.FormulaR1C1 = _
"=IF(RC1="""","""",VLOOKUP(RC1,'3.Ref - 3.2.Maße - 3.3.Matrix'!R5C1:R36C9,7,FALSE)*ABS( _
RC9))"
'Erste Formel in Spalte G eintragen
lngLast = Cells(Rows.Count, 7).End(xlUp).Row + 1
'Formeln nachziehen in Spalte G
ActiveCell.FormulaR1C1 = _
"=IF(RC1="""","""",VLOOKUP(RC1,'3.Ref - 3.2.Maße - 3.3.Matrix'!R5C1:R36C9,9,FALSE))"
'Erste Formel in Spalte H eintragen
lngLast = Cells(Rows.Count, 8).End(xlUp).Row + 1
'Formeln nachziehen in Spalte H
ActiveCell.FormulaR1C1 = "=IF(RC[-7]="""","""",RC[-2]/RC[-1])"
'Erste Formel in Spalte H eintragen
lngLast = Cells(Rows.Count, 1).End(xlUp).Row + 1
End Sub