Can anybody help me combine the 2 macros below:

Sub Macro1 ()
Sheets("FXMvt").Select
For Each Cell In Range("O5:O119")
If Cell.Value - 1 = Range("a1").Value Then
Cell.Select
End If
Next
If Range("A1").Value = Selection.Value - 1 Then
MsgBox ("Tomorrow - Check for FX deal - Maturity date !!!")
End If
End Sub



Sub Macro2 ()
Sheets("FXMvt").Select
For Each Cell In Range("O5:O119")
If Cell.Value = Range("a1").Value Then
Cell.Select
End If
Next
If Range("A1").Value = Selection.Value Then
MsgBox ("Today - Check for FX deal - Maturity date !!!")
End If

End Sub

thxs