Hi All,

I currently am running a spreadsheet with hundreds of sheets each representing an agreement.

These sheets contain all instalments, past current and future.

Every month I copy the last month's instalment, paste it to the cell below it (next months) and then run a goal seek to distribute the differences in interest calculation amongst the remaining instalments.

Up till now I copy-paste on every sheet manually and this is what I have created to make my life easier after I have done that:

Sub GoalSeek_NxtSheet()
'
' GoalSeek_NxtSheet Macro
'
' Keyboard Shortcut: Ctrl+r
'
    Range("E75").GoalSeek Goal:=0, ChangingCell:=Range("D12")
    ActiveSheet.Next.Select
End Sub
Is there a way to create a macro that will search for a date (say "2013/07/25") in column "A" then copy the cell to its left and paste it one cell below?

The rest would be simply to add what I already have in the macro to do the goal seeking until the macro reaches the last sheet...

Example:
Example snippet.PNG

Thank you in advance :-)