Hi all, my macros crashing on the line: "LastRow = ActiveSheet.UsedRange.Rows.Count"


Sub ColourData()

' colours lines in the 'data' tab according to where the blades are against their SAP router

Dim iCell As Range
Dim RowC As Integer
Dim RowD As Integer
Dim RowE As Integer

Dim Column As Integer
Dim FirstRow As Integer
Dim LastRow As Integer

Sheets("Sheet1").Range("D11:F60").Clear

Sheets("Data").Activate
Cells.Interior.ColorIndex = 2

LastRow = ActiveSheet.UsedRange.Rows.Count
FirstRow = 1
Column = 34
' need to put day number in column AF

For Each iCell In Range(Cells(FirstRow, Column), Cells(LastRow, Column))

    If CInt(iCell) < Sheets("Sheet1").Range("C3") Then
    RowC = iCell.Row
    Rows(RowC).Select
    Selection.Interior.ColorIndex = 42
     'blue

        ElseIf CInt(iCell) >= Sheets("Sheet1").Range("C3") And CInt(iCell) < Sheets("Sheet1").Range("C4") Then
        RowC = iCell.Row
        Rows(RowC).Select
        Selection.Interior.ColorIndex = 4
        ' green
    
            ElseIf CInt(iCell) >= Sheets("Sheet1").Range("C4") And CInt(iCell) < Sheets("Sheet1").Range("C5") Then
            RowD = iCell.Row
            Rows(RowD).Select
            Selection.Interior.ColorIndex = 6
            ' yellow
        
                ElseIf CInt(iCell) >= Sheets("Sheet1").Range("C5") And CInt(iCell) < Sheets("Sheet1").Range("C6") Then
                RowE = iCell.Row
                Rows(RowE).Select
                Selection.Interior.ColorIndex = 46
                'orange
            
                    ElseIf CInt(iCell) > Sheets("Sheet1").Range("C6") Then
                    RowE = iCell.Row
                    Rows(RowE).Select
                    Selection.Interior.ColorIndex = 3
                    'red
            
    End If

Next iCell

Call CountData

End Sub

Thanks, Matt!