I need to off set the First row, so I Changed the range in the Sub from

```
For Each rng In Sheets("360").Range("B:CJ" & Lastrow)

```

to

```
For Each rng In Sheets("360").Range("B2:CJ2" & Lastrow)

```

The sub know barley runs it took 5 seconds to run and know takes minutes if it even finishes

How to fix this?

Thanks

```
Sub CleanAll()

    Dim rng As Range
    Dim Lastrow As Long

    With Sheets("360")
        Lastrow = .Range("A" & .Rows.Count).End(xlUp).Row
    End With

    For Each rng In Sheets("360").Range("B2:CJ" & Lastrow)
        rng.Value = NumberOnly(rng.Value)
    Next
End Sub

```

The Function

```
Function NumberOnly(strSource As String) As String
Dim i As Integer
Dim strResult As String

For i = 1 To Len(strSource)
    Select Case Asc(Mid(strSource, i, 1))
        Case 32, 48 To 57, 65, 78:
            strResult = strResult & Mid(strSource, i, 1)
    End Select
Next
NumberOnly = strResult

End Function

```