Códigos em VBA: Pokedex

Sub Test()

Dim x As String
Dim i As Integer

x = "Normal Fire Water Electric Grass Ice Fighting Poison Ground Flying Psychic Bug Rock Ghost Dragon Dark Steel"

For i = 1 To 1858
    If InStr(x, Cells(i, 1).Value) > 0 Then
        Range(Cells(i, 1), Cells(i, 8)).Cut
        Cells((i - 1), 3).Select
        ActiveSheet.Paste

End If

Next i


End Sub
_________________________________________________
Sub Test1()

Dim i As Integer

For i = 1 To 1858
    If Cells(i, 1).Value = "Fairy" Then
        Range(Cells(i, 1), Cells(i, 8)).Cut
        Cells((i - 1), 3).Select
        ActiveSheet.Paste

End If

Next i

End Sub
_________________________________________________
Sub Test2()

For i = 1 To 1858

If IsEmpty(Cells(i, 3)) = True Then
    Cells(i + 1, 1).Cut
    Cells(i + 1, 2).Select
    ActiveSheet.Paste

    Cells(i, 1).Cut
    Cells(i + 1, 1).Select
    ActiveSheet.Paste
End If

Next i

End Sub