Is there any way to combine two do...loop macros into one? I have the following macro, but it won't work:

Sub newmonth()
'
' newmonth Macro
' Macro recorded 5/3/2006 by
'
' Keyboard Shortcut:
'
Dim i As Integer
i = 1
Range("A3").Select
Do
ActiveCell.Formula = "=IF(ISBLANK('[Trades Tickets (Oct).xls]Ticket (" & i & ")'!$A$2), "" "", '[Trades Tickets (Oct).xls]Ticket (" & i & ")'!$A$2)"
ActiveCell.Offset(15, 0).Select
i = i + 1
Loop Until IsEmpty(ActiveCell.Offset(1, 0))
Range("B3").Select
Do
ActiveCell.Formula = "=IF(ISERROR('[Trades Tickets (Oct).xls]Ticket (" & i & ")'!$B$5), "" "", '[Trades Tickets (Oct).xls]Ticket (" & i & ")'!$B$5)"
ActiveCell.Offset(15, 0).Select
i = i + 1
Loop Until IsEmpty(ActiveCell.Offset(1, 0))
'
End Sub

Thanks in advance for your help!!

-Lisel