Antes, é necessário esclarecer que pasta de trabalho é o arquivo do Excel e que planilha é cada guia que existe dentro dessa pasta de trabalho.

Para lançar em outra planilha, basta mudar onde está escrito Plan1:

Private Sub CommandButton1_Click()

Dim linha As Integer
    linha = Plan2.Range("A100000").End(xlUp).Offset(1, 0).Row
    Plan2.Range("A" & linha).Value = TextBox6.Value
    linha = Plan2.Range("b100000").End(xlUp).Offset(1, 0).Row
    Plan2.Range("b" & linha).Value = TextBox4.Value

End Sub

Se for em outra pasta de trabalho:

Private Sub CommandButton1_Click()

Dim linha As Integer
    linha = Workbooks("lançamentos").Sheets("Plan1").Range("A100000").End(xlUp).Offset(1, 0).Row
    Workbooks("lançamentos").Sheets("Plan1").Range("A" & linha).Value = TextBox6.Value
    linha = Workbooks("lançamentos").Sheets("Plan1").Range("b100000").End(xlUp).Offset(1, 0).Row
    Workbooks("lançamentos").Sheets("Plan1").Range("b" & linha).Value = TextBox4.Value

End Sub

O código acima funciona se a pasta de trabalho lançamentos também estiver aberta.