Duvida no VBA neste comando Urgente

Boas amigos.
tenho duvidas porque não consigo copiar o valor que esta numa celula de uma folha para outra numa base de dados.


Private Sub Gravar_Click()
Sheets("Caixa").Activate
Cells(4, 1).Activate
ActiveSheet.ShowAllData
Proximalinha = Application.WorksheetFunction. _
CountA(Range("A:A")) + 1
Proximalinha(0, 0) = DateValue(Now)
Proximalinha(0, 1) = Sheets("Recibo Pagamento").Range("F23")

End Sub
Onde esta a vermelho é onde me dá um erro não sei como corrigir.
Obrigado a que me possa ajudar.

Boa noite!!

Tem como descrever o que pretende fazer?

Código:

Sub CopiarAleVBA()
Worksheets("Caixa").Range("A4").Copy Destination:=Worksheets("Recibo Pagamento").Range("F23")
End Sub

Boas amigo,
Colo esse codigo que me deu ai na susbstituição do que tenho a vermelho?
Se me poder mandar o comando feito agradeço.
Obrigado

Boa noite!!

Se usar meu código ele apenas copiara o valor deu uma célula de uma planilha para outra.

Att

4shared.com/file/qrskrmZq/Teste.html

Bom dia!!

Eu baixei seu arquivo, agora diga exatamente o que você precisa.

Att

Eu quero que o Botao gravar da plan Recibo de pagamento me copie o valor final da celula e me enviei para o plan caixa.
e quando eu passar outra faça o mesmo para a celula seguinte da plan caixa.
E me deixe o Codigo VBA acessivel porque o cara que me fez isso não me deixou o codigo VBA disponivel se algum dia quiser fazer algo do genero para outro programa meu.

Bom dia!!

Veja se é isso.

http://www.sendspace.com/file/lkgc94

É só apertar o botão "gravar"

Att

Não estou a conseguir baixar o ficheiro nem ver.
Eu no sendspace nao tenho conta e nem encontro o ficheiro.
Se poder por e 4share

Boa tarde!!

Segue o link.

http://www.4shared.com/file/1gphvUPX/CodAleVBA.html


Att

É isso mesmo, Obrigado.
Essa macro é so copiar e posso usar em qualquer lugar desse genero?

Boas amigo,
Já testei a macro é funciona perfeitamente.
Obrigado pela ajuda, valeu.