Tá na mão........

Sub atualizaishikawa()
'Código criado por Joe em 18/09/2017
'Contato para Freelancer: (61) *******
i = 2
Do Until Len(Worksheets(1).Cells(i, 1).Text) = 0
    tipom = Worksheets(1).Cells(i, 6).Text
    Select Case tipom
        Case 1
            s = 2
            Do Until Len(Worksheets(2).Cells(s, 1).Text) = 0
                s = s + 1
            Loop
            Worksheets(2).Cells(s, 1) = Worksheets(1).Cells(i, 1)
        Case 2
            s = 2
            Do Until Len(Worksheets(2).Cells(s, 6).Text) = 0
                s = s + 1
            Loop
            Worksheets(2).Cells(s, 6) = Worksheets(1).Cells(i, 1)
        Case 3
            s = 2
            Do Until Len(Worksheets(2).Cells(s, 11).Text) = 0
                s = s + 1
            Loop
            Worksheets(2).Cells(s, 11) = Worksheets(1).Cells(i, 1)
        Case 4
            s = 14
            Do Until Len(Worksheets(2).Cells(s, 1).Text) = 0
                s = s + 1
            Loop
            Worksheets(2).Cells(s, 1) = Worksheets(1).Cells(i, 1)
        Case 5
            s = 14
            Do Until Len(Worksheets(2).Cells(s, 6).Text) = 0
                s = s + 1
            Loop
            Worksheets(2).Cells(s, 6) = Worksheets(1).Cells(i, 1)
        Case 6
            s = 14
            Do Until Len(Worksheets(2).Cells(s, 11).Text) = 0
                s = s + 1
            Loop
            Worksheets(2).Cells(s, 11) = Worksheets(1).Cells(i, 1)
        Case Else
            MsgBox "Não tem tipo M definido!"
    End Select
    i = i + 1
Loop
End Sub

Espero ter ajudado.....

Não esqueça de marcar essa mensagem como tópico concluído e mandar um TKS...

Abraços....

Funcionou perfeitamente, obrigado!