>>54
Sub 一週間ずつコピペ追加Macro1()
　　ro = Cells(Rows.Count, 2).End(xlUp).Row
　　Cells(ro - 7, 2).Resize(8, 4).Copy Cells(ro + 1, 2)
　　For Each c In Cells(ro + 2, 2).Resize(7, 1)
　　　　c.Value = c + 7
　　Next
　　Columns("B").AutoFit
End Sub