Troque a rotina pela a abaixo, vale uma ressalva que na mesma a expressão "Tipo A" é diferente de "tipo A", então modifiquei na rotina :

Sub leituraMauro()
    Dim i As Integer
    Dim tipoA As Boolean
    Dim minhaLinha As Long
    
    With ThisWorkbook.Worksheets("Planilha1")
        For i = 1 To .Range("B1").End(xlDown).Row
            If .Range("B" & i).Value = "tipo A" Then tipoA = True
            If .Range("B" & i).Value = "tipo B" Then tipoA = False
            
            Debug.Print .Range("B1").End(xlDown).Row
            Debug.Print .Range("E1").End(xlUp).Row + 1 'ERRO
            Debug.Print .Range("F1").End(xlDown).Row + 1 'ERRO
            
            If .Range("B" & i).Value <> "tipo A" And _
            .Range("B" & i).Value <> "tipo B" Then
                If tipoA Then
                    .Range("B" & i).Copy _
                    Destination:=.Range("E" & .Range("E" & Rows.Count).End(xlUp).Row + 1)
                Else
                    .Range("B" & i).Copy _
                    Destination:=.Range("F" & .Range("F" & Rows.Count).End(xlUp).Row + 1)
                End If
            End If
        Next i
    End With
End Sub

[]s