Printing Format after worksheet update

hi gurus..any assistance will be greatly appreciated..

Hi, could anyone point me where to get help about my issue? maybe i'm in the wrong forum. Thank you very much.

She added wedding and beach BBQ rows in "data entry" worksheet then add wedding and beach BBQ columns in other 2 worksheets.

The code attached to the Data Entry worksheet, (see below), relies on specific cell locations in the Daily worksheet. By adding those extra columns in the Daily worksheet, you moved the cells and 'broke' the code.

HTH,
Rich

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim nCtr As Integer
    If Intersect(Target, Range("Today")) Is Nothing Then
        Exit Sub
    End If
    
    Application.EnableEvents = False
    Cells(3, 3).Value = Sheets("Daily").Cells(5, 2).Value ' Weather
    If IsError(Cells(3, 3).Value) Then
        Cells(3, 3).Value = ""
    End If
    Cells(6, 3).Value = Sheets("Daily").Cells(5, 3).Value 'Room Revenue
    Cells(6, 4).Value = Sheets("Daily").Cells(5, 15).Value 'Room Revenue Adjustment
    For nCtr = 9 To 17 'Revenue Amount and Adjustment
        Cells(nCtr, 3).Value = Sheets("Daily").Cells(5, nCtr - 3).Value
        Cells(nCtr, 4).Value = Sheets("Daily").Cells(5, nCtr + 9).Value
    Next
    For nCtr = 18 To 22 'Room Statistics
        Cells(nCtr, 3).Value = Sheets("Daily").Cells(5, nCtr + 9).Value
    Next
    For nCtr = 2 To 31 'Food & Beverage Cover, Revenue and Adjustment
        Cells(nCtr, 10).Value = Sheets("Daily").Cells(5, nCtr + 60).Value
        Cells(nCtr, 11).Value = Sheets("Daily").Cells(5, nCtr + 30).Value
        Cells(nCtr, 12).Value = Sheets("Daily").Cells(5, nCtr + 90).Value
    Next
    Cells(24, 3).Value = Sheets("Daily").Cells(5, 122).Value 'Rooms - Arrival
    Cells(24, 4).Value = Sheets("Daily").Cells(5, 123).Value 'Guests - Arrival
    Cells(25, 3).Value = Sheets("Daily").Cells(5, 124).Value 'Rooms - Departure
    Cells(25, 4).Value = Sheets("Daily").Cells(5, 125).Value 'Guests - Departure
    Cells(26, 3).Value = Sheets("Daily").Cells(5, 126).Value 'Repeat Guests - Rooms
    Cells(26, 4).Value = Sheets("Daily").Cells(5, 127).Value 'Repeat Guests - Guests
    
    Cells(28, 4).Value = Sheets("Daily").Cells(5, 128).Value 'Logo - Visitors
    Cells(28, 3).Value = Sheets("Daily").Cells(5, 129).Value 'Logo - Buyers
    Cells(30, 5).Value = Sheets("Daily").Cells(5, 130).Value 'Logo - Food
    Cells(31, 5).Value = Sheets("Daily").Cells(5, 131).Value 'Logo - Beverage
    Cells(29, 4).Value = Sheets("Daily").Cells(5, 132).Value 'ProShop - Visitors
    Cells(29, 3).Value = Sheets("Daily").Cells(5, 133).Value 'ProShop - Buyers
    Cells(30, 3).Value = Sheets("Daily").Cells(5, 134).Value 'Milad - Buyers
    Cells(27, 5).Value = Sheets("Daily").Cells(5, 135).Value 'Milad - Service (H1)
    Cells(28, 5).Value = Sheets("Daily").Cells(5, 136).Value 'Milad - Massage (H2)
    Cells(29, 5).Value = Sheets("Daily").Cells(5, 137).Value 'Milad - Items (H3)
    Cells(31, 3).Value = Sheets("Daily").Cells(5, 138).Value 'Recreation - Buyers
    Cells(19, 4).Value = Sheets("Daily").Cells(5, 139).Value 'Massage Cover - Guests
    Cells(20, 4).Value = Sheets("Daily").Cells(5, 140).Value 'Massage Cover - Local
    Cells(21, 4).Value = Sheets("Daily").Cells(5, 141).Value 'Massage Cover - Employees
    
    Application.EnableEvents = True
    Exit Sub
End Sub

Thank you very much to all your reply.

I remove other worksheets that doesn't have relation to the issue at hand. The size of the excel is so huge if I will not remove other worksheets.

I am hoping there will be a fixed or a work around so that the values will be position on correct cells.

Thank you very much and more power to excelforum.com.