Excel VBA: Extract Second Letter from Column H to Column J

Sub FindAndCopy()

Dim lastRow As Long
Dim i As Long
Dim cellValue As String
Dim secondLetter As String

lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row

For i = 1 To lastRow
    cellValue = ActiveSheet.Range("H" & i).Value
    secondLetter = Mid(cellValue, 2, 1)
    
    If secondLetter Like "[A-Za-z]" Then
        ActiveSheet.Range("J" & i).Value = secondLetter
    End If
Next i

End Sub