Problema em salvar os dados

[Lory17]

Boa tarde

Criei vários formulários

Um formulário chamado animais onde tenho uma multipage com várias categorias e em cada categoria tenho outra multipage com os tipos deles.

Ex:

Bovino

1-Bezerro

With Sheets("Patrimonio_Bezerro(a)")
    MultiPage4.Value = 4
Range("A60000").End(xlUp).Offset(1, 0).Select

 'Cadastrar bezerros
 
 '1- bezerro
 
 ActiveCell.Offset(0, 3).Value = Me.Tipo_Bezerro.Value
 ActiveCell.Offset(0, 4).Value = Me.Uni_Bezerro.Value
 ActiveCell.Offset(0, 5).Value = Me.Quanti_Bezerro.Value
 ActiveCell.Offset(0, 6).Value = Me.Valor_Bezerro.Value
 
 If Tipo_Bezerro <> "" Then
   
 ActiveCell.Offset(0, 0).Value = Me.Parcela.Value
 ActiveCell.Offset(0, 1).Value = Me.Beneficiario.Value
 ActiveCell.Offset(0, 2).Value = Me.CPF.Value
 End If

End With

End Sub

2-Novilha

3- Touro

4-Vaca

Cada um está em uma planilha diferente, quando clico para salvar os dados do bezerro e estiver com a planilha Vaca aberta, obs: tudo está em um excel só, ela salva na de Vaca e  gostaria de ajuda para salvar no lugar certo.

Estou aprendendo agora a utilizar o VBA Excel,desde já agradeço a ajuda!