Need help on offset and copy coding using VBA

Hi there,

I am looking for some help with a forecasting model.

In order to update the model I need to offset and then copy data however I am struggling to do this.

My code at the moment:

Sheets("Updated Forecast").Select
    Range("C5").Select
    Do While ActiveCell.Value <> Empty
        ActiveCell.Value = ActiveCell.Value + intAddNum + 1
        ActiveCell.Offset(5, 0).Select
    Loop
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Home").Select
    Range("I29").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Any help would be much appreciated.

Thanks

Welcome to the Forum megan-jane!

You have shown some code that does something, but you haven't said how that something is different than what you want it to do.

What exactly do you want your code to do?
What is the problem with the code you provided?

Hi, thank you for your reply.

I have attached the Excel file I am using and what I need (on the Updated Forecast worksheet) is to copy the forecasts (C4:C7) coloured in pink to the 'Home' worksheet. This I can do no problem but every time I run the code I need to copy the next set of forecasts so C9:C12, C14:17, etc... I have managed to use similar code in order to paste data in this manner but I cannot seem to copy and offset together?

I'm sorry, I'm not very good at explaining things and this seems quite complicated to me which makes it worse!

Megan