Copy and paste data

[thedeadzeds]

Hi All,

This code basically copies data from one worksheet to another worksheet based on the date and works great. However, I have been asked to changed the format of the spreadhsete and the code needs to be changed. The code is in ‘This workbook’.

The code takes the data from the summary tab and copies it to the archive tab. I now need it to take it from the summary tab and copy it to the archive 2 tab.

Hope this makes sense, I have attached a copy of the spreadsheet.

Thanks

   Sub Tracking()
'
' tracking Macro
Dim i As Integer
    
    i = 1
    Do Until Sheet2.Range("B" & i).Text = Format(Sheet1.Range("D3").Text, "dddd dd mmmm yyyy")
        i = i + 1
    Loop
 
    'Volumes in
    Sheet2.Range("c" & i).Value = (Sheet1.Range("D7").Value)
    'Volumes out
    Sheet2.Range("d" & i).Value = (Sheet1.Range("D8").Value)
    'Chals in
    Sheet2.Range("e" & i).Value = (Sheet1.Range("D9").Value)
    'Chals out
    Sheet2.Range("F" & i).Value = (Sheet1.Range("D10").Value)
    'BAU in
    Sheet2.Range("g" & i).Value = (Sheet1.Range("D11").Value)
    'Bau out
    Sheet2.Range("h" & i).Value = (Sheet1.Range("D12").Value)
    'Bau Left
    Sheet2.Range("i" & i).Value = (Sheet1.Range("D13").Value)
    
    MsgBox "The data has been copied over - please check!"
    
    Sheets("Archive").Select
    Range("A1").Select
    
End Sub