Olá estou criando uma planilha para meu relogio de ponto individual nesse periodo de home Office, criei uma userforn que quando aperta o botão le insere em uma coluna a data e em outra a hora, porém quando vou bater no dia seguinte ele esta sobre escrevendo o dia anterior, ja fiz varias buscas na internet e nem um Codigo faz ele ir automaticamente para linha seguite, que esta vazia. Segue o codigo:

Private Sub Entrada_Click()

Dim Linha As String

Linha = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row +1

plan2.Cells(Linha, 1).Value = Date

plan2.Cells(Linha, 2).Value = Time

Unload BaterPonto

End Sub

Para a primeira linha funciona depois se eu quiser ir para a linha debaixo eu tenho que colocar 2 apos o mais e depois 3 e etc, gostaria de não precisar alterar o codigo todo dia para inserir a data, se não é mais facil fazer manualmente.