Copy and paste a set of entries at the bottom of a table but add 7 days to the previous entry for that data set..

Hi Anne,

The button isn't working on the sample file because it is linking to a macro in a separate file:
'C:\Users\Anne\AppData\Local\Microsoft\Windows\INetCache\Content.Outlook\Q2KBLU2G\Caoimhe_Sheridan_AnneWalsh_Excel_updated.xlsm'!FillDownValues

This could be because of it being uploaded to EE and downloaded again but it looks like it has been emailed.

Can you upload a file with the macro in it so we can check if it needs amending?

yes, that would help wouldn't it...here is the original code....
Sub FillDownValues()
   
    Range("Table3[#Headers]").Select
    ColCount = Range("Table3[#Headers]").Count - 2
    HdrRow = Range("Table3[#Headers]").Row
    LastRow = Selection.End(xlDown).Row
   
    For r = 1 To 26
        For c = 1 To ColCount
            Cells(LastRow + r, c).Value = Cells(LastRow + r - 26, c).Value
            If Cells(HdrRow, c) = "Week Date" Then Cells(LastRow + r, c).Value = Cells(LastRow + r, c).Value + 7
        Next c
    Next r
    Selection.End(xlDown).Select
End Sub

Could it be because you didn't define your variables?

Sub FillDownValues()
   Dim ColCount As Long
   Dim HdrRow As Long
   Dim LastRow As Long
   Dim r As Long
   Dim c As Long
   
    Range("Table3[#Headers]").Select
    ColCount = Range("Table3[#Headers]").Count - 2
    HdrRow = Range("Table3[#Headers]").Row
    LastRow = Selection.End(xlDown).Row
   
    For r = 1 To 26
        For c = 1 To ColCount
            Cells(LastRow + r, c).Value = Cells(LastRow + r - 26, c).Value
            If Cells(HdrRow, c) = "Week Date" Then Cells(LastRow + r, c).Value = Cells(LastRow + r, c).Value + 7
        Next c
    Next r
    Selection.End(xlDown).Select
End Sub

Select allOpen in new window

Is the macro in a code module like Module1?