Amigos, não sei mais o que fazer!!!

A rotina e simples mas não funciona!!

Ao clicar no botão ele vai identificar o último lançamento e ir a proxima celula disponivel na coluna AU.

Depois vai inserir a data e o saldo inicial que já foi informado!

No entanto ele só está lançando na celula AU2...

Help!!

Private Sub CommandButton2_Click()
Dim UltimaLinha1, i, z As Integer
Sheets("Banco_Sistema").Select
Range("AU1").Select
UltimaLinha1 = Sheets("Banco_Sistema").Cells(Cells.Rows.Count, 46).End(xlUp).Row
UltimaLinha1 = UltimaLinha1 + 1
Range("AU" & UltimaLinha1).Select

If UltimaLinha1 = 2 Then
    ActiveCell.Value = Date
Else
    ActiveCell.Value = Date
End If
    saldo = Application.InputBox("Informe o Saldo Inicial para o dia " & Date, "Saldo Inicial")
    ActiveCell.Offset(0, 1).Value = saldo
End Sub