Mid and Mod to extract a number from string

Hi,

It would help if you attached your workbook example

In any case change the "8" to the number 8 only

  Dim i As Integer
    For i = 2 To 944
        If Mid("H" & i, 8, 8) = 8 And Mid("H" & i, 8, 9) Mod 2 <> 0 Then
            Range("A" & i & ":J" & i).Copy Destination:=Sheets(test)
    End If