写一个excel的vba逻辑是检查H列的数据找到H列单元格中的第二个英文字符并将这个字符复制到J列随后删除H中的此字符

Sub FindAndCopy()

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

Dim i As Long
For i = 1 To lastRow
    Dim cellValue As String
    cellValue = ActiveSheet.Cells(i, "H").Value
    
    Dim secondLetter As String
    secondLetter = Mid(cellValue, InStr(2, cellValue, Application.WorksheetFunction.Substitute(cellValue, " ", "@@", 2), vbBinaryCompare) + 1, 1)
    
    ActiveSheet.Cells(i, "J").Value = secondLetter
    
    Dim newCellValue As String
    newCellValue = Application.WorksheetFunction.Substitute(cellValue, secondLetter, "", 2)
    
    ActiveSheet.Cells(i, "H").Value = newCellValue
Next i

End Sub