Paste Data Every 45 Rows using VBA

Hello, could someone please assist me in modifying my macro for use on Excel 2003?

Sorry, the subject title should read: Paste Data Every 45 Rows using VBA.

As detailed below in the comments of my code, I need the following:

When the macro is run the first time it pastes the data in cell A4 as shown in the code below. The next time I run this macro, I need to paste the data in the next empty cell every 45-rows down in Column A. So, the next series of cells to paste the data would be: A49, A94, A139, A184 etc..

Addtionally, I need the following:

When the macro is run the first time it pastes the data in cell B20 as shown in the code below. The next time I run this macro, I need paste the data in the next empty cell every 45-rows down in column B. So, the next series of cells to paste the data would be: B65, B110, B155, B200 etc..

Sub ArchiveCharts()
'
'   ArchiveCharts
'
'=================================================================================================
'
'   Copy the Pivot Table and Chart Table from the C-27J Outstanding Spares Requisitions workbook -- Chart1 worksheet
'   to the Archived_Charts workbook -- Chart1 worksheet
'
'=================================================================================================
'
    Windows("C-27J Outstanding Spares Requisitions.xls").Activate
    Sheets("Chart1").Select
    Rows("3:17").Select
    Selection.Copy
    Windows("Archived_Charts.xls").Activate
    Sheets("Chart1").Select
    Range("A4").Select
'
'=================================================================================================
'
'   Range("A4") is selected the first time to paste the data.
'   The next time I run this macro, I need the the Range to go
'   down column A to the next empty cell every 45-rows.
'   So, the next series of ranges would be: A49, A94, A139, A184 etc..
'
'=================================================================================================
'
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
'
'=================================================================================================
'
'   Copy the Chart from the C-27J Outstanding Spares Requisitions workbook -- Chart1 worksheet
'   to the Archived_Charts workbook -- Chart1 worksheet
'
'=================================================================================================
'
    Windows("C-27J Outstanding Spares Requisitions.xls").Activate
    Sheets("Chart1").Select
    Application.CutCopyMode = False
    Range("A1").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ChartArea.Copy
    ActiveWindow.Visible = False
    Windows("Archived_Charts.xls").Activate
    Sheets("Chart1").Select
    Range("B20").Select
'
'=================================================================================================
'
'   Range("B20") is selected the first time to paste the data.
'   The next time I run this macro, I need the the Range to go
'   down column B to the next empty cell every 45-rows.
'   So, the next series of ranges would be: B65, B110, B155, B200 etc..
'
'=================================================================================================
'
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
    
    Windows("C-27J Outstanding Spares Requisitions.xls").Activate
    Sheets("Chart1").Select
    Application.CutCopyMode = False
    Range("A1").Select
    
End Sub

Any help would be greatly appreciated.

Kind regards,

Chris