O que estou utilizando é isso aqui:
Private Sub LabSalvar_Click()
Worksheets("Atendimentos").Select
Dim linha As String
linha = Worksheets("Atendimentos").UsedRange.Rows.Count + 1 'UsedRange.Rows.Count + 1
Cells(linha, 1) = Txtdata
Cells(linha, 2) = Txtprodutor
Cells(linha, 3) = Txtcpf
Cells(linha, 4) = Txtendereço
Cells(linha, 5) = Txtnumero
Cells(linha, 6) = Txtcontato
Cells(linha, 7) = Txtatendimento
Cells(linha, 8) = Txt_TecResp
MsgBox "Atendimento Salvo com Sucesso", vbInformation, "Atendimentos ao Produtor"
Txtendereço = ""
Txtcontato = ""
Txtcpf = ""
Txtatendimento = ""
Txtmunicipio = ""
Txtnumero = ""
configuração
ActiveWorkbook.Save
Unload Formatendimento
Usefm_capa.Show
End Sub
Mas não consigo cria uma variavel de plan de acordo com o usuário, pois quero salvar dados atendimentos e em outra varia de acordo o nome do usuário