Guru do Excel e Power BI

Bom dia,
estou criando uma planilha de controle de saldo diário, que simplesmente seria adicionar o valor do caixa no final do dia para a linha relacionado do dia.

eu estava procurando um método para simplificar essa adição criando um botão que abriria uma inputBox, que procuraria na coluna dos saldos a célula do ultimo dia não preenchido e escolheria esse como próximo, mas não consigo fazer funcionar.

( Isto foi até aonde cheguei )

Sub inserir()

Dim lig As Long
Dim entrada As Variant
Dim vRange As Range
Dim msgTitulo As String

msgTitulo = "Inserir Saldo"

lig = 14 'primeira linha a verificar
Do While Not IsEmpty(Range("B" & lig))
lig = lig + 1
Loop

Set entrada = Application.InputBox _
(Prompt:="- Digite o valor:", _
Title:=msgTitulo, Type:=8)

Range(“B” & lig).Value = entrada

End Sub

O que está errado? O que fariam diferente?

teria como adicionar automaticamente o dia nesse código?

Planilha exemplo anexada.

Desculpem se a duvida é boba,
não achei nada sobre isso nas outras duvidas que procurei.

Grato pela Atenção,

Lucas.

Para se deslocar a próxima célula use: range("B1048576").end(xlup).offset(1,0)

Um simplicação do seu código seria:
Sub t()
range("B1048576").end(xlup).offset(1,0) = format(inputbox ("Digite o valor"),"$ #")
range("a1048576").end(xlup).offset(1,0) = date
end sub

Funcionou ,
Muito obrigado pela ajuda Feka.