Hi

is there a macro, that can take a figure from A1, then add it to B1? But it will have to be pasted where I have red text within the macro below. sheet would be called "Summary"

Public Sub SaveAs()
      Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "THIS WILL DELETE THE SHEET READY FOR A NEW WEEK....DO YOU WANT TO CONTINUE?"
Style = vbYesNo + vbCritical + vbDefaultButton2

Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then GoTo 100
End

100 Application.ScreenUpdating = False
Application.ScreenUpdating = False


    'Unprotect sheets to paste values

    Sheets("WTD Costs").Unprotect Password:=Sheets("Password").Range("K100").Value
    Sheets("WTD Waste").Unprotect Password:=Sheets("Password").Range("K100").Value
    Sheets("Cardboard Waste Trend").Unprotect Password:=Sheets("Password").Range("K100").Value
    
        
        
'Will copy figures from end of shift totals (overviews) and paste them into WTD costs and WTD rewraps for each week

Worksheets("End of week summary").Range("B10").Copy
Worksheets("Cardboard Waste Trend").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Worksheets("End of week summary").Range("C10").Copy
Worksheets("Cardboard Waste Trend").Range("D" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Worksheets("End of week summary").Range("D10").Copy
Worksheets("Cardboard Waste Trend").Range("E" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Worksheets("End of week summary").Range("E10").Copy
Worksheets("Cardboard Waste Trend").Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Worksheets("End of week summary").Range("F10").Copy
Worksheets("Cardboard Waste Trend").Range("G" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Worksheets("End of week summary").Range("G10").Copy
Worksheets("Cardboard Waste Trend").Range("H" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Worksheets("End of week summary").Range("H10").Copy
Worksheets("Cardboard Waste Trend").Range("I" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Worksheets("End of week summary").Range("I10").Copy
Worksheets("Cardboard Waste Trend").Range("J" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Worksheets("End of week summary").Range("J10").Copy
Worksheets("Cardboard Waste Trend").Range("K" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Worksheets("End of week summary").Range("K10").Copy
Worksheets("Cardboard Waste Trend").Range("L" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues





    Worksheets("End of week summary").Range("E2").Copy
    Worksheets("WTD Waste").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

    Worksheets("End of week summary").Range("E4").Copy
    Worksheets("WTD Waste").Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

    Worksheets("End of week summary").Range("E5").Copy
    Worksheets("WTD Waste").Range("I" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

    Worksheets("End of week summary").Range("E6").Copy
    Worksheets("WTD Waste").Range("L" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

    Worksheets("End of week summary").Range("J2").Copy
    Worksheets("WTD Costs").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

    Worksheets("End of week summary").Range("J4").Copy
    Worksheets("WTD Costs").Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

    Worksheets("End of week summary").Range("J5").Copy
    Worksheets("WTD Costs").Range("I" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

    Worksheets("End of week summary").Range("J6").Copy
    Worksheets("WTD Costs").Range("L" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

   



        Worksheets("Overview 3D").Range("O9").Copy
        Worksheets("WTD Waste").Range("P4" & Columns.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

        Worksheets("Overview 3D").Range("P9").Copy
        Worksheets("WTD Waste").Range("Q4" & Columns.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

        Worksheets("Overview 3D").Range("Q9").Copy
        Worksheets("WTD Waste").Range("R4" & Columns.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

        Worksheets("Overview 3N").Range("O9").Copy
        Worksheets("WTD Waste").Range("S4" & Columns.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

        Worksheets("Overview 3N").Range("P9").Copy
        Worksheets("WTD Waste").Range("T4" & Columns.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

        Worksheets("Overview 3N").Range("Q9").Copy
        Worksheets("WTD Waste").Range("U4" & Columns.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

        Worksheets("Overview 4D").Range("O10").Copy
        Worksheets("WTD Waste").Range("V4" & Columns.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

        Worksheets("Overview 4D").Range("P10").Copy
        Worksheets("WTD Waste").Range("W4" & Columns.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

        Worksheets("Overview 4D").Range("Q10").Copy
        Worksheets("WTD Waste").Range("X4" & Columns.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

        Worksheets("Overview 4N").Range("O10").Copy
        Worksheets("WTD Waste").Range("Y4" & Columns.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

        Worksheets("Overview 4N").Range("P10").Copy
        Worksheets("WTD Waste").Range("Z4" & Columns.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

        Worksheets("Overview 4N").Range("Q10").Copy
        Worksheets("WTD Waste").Range("AA4" & Columns.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

MACRO WOULD GO HERE

'Protect sheets
Sheets("WTD Costs").Protect Password:=Sheets("Password").Range("K100").Value
Sheets("WTD Waste").Protect Password:=Sheets("Password").Range("K100").Value
Sheets("Cardboard Waste Trend").Protect Password:=Sheets("Password").Range("K100").Value




      'Will save the file AS "WK" plus what ever value is in A1 on "Reset Sheet"   
Const PATH As String = "\\calfp05\Lynher Bakery\Packing Files & GPIU Audits\Cardboard Waste\Archive\2014\WK"
With ActiveWorkbook
.SaveCopyAs Filename:=PATH & .Sheets("ResetSheet").Range("A1").Value & ".xls"

      ' Clearcells

            Sheets("3 DAYS").Select
            Range("B6:L19,B23:L37,B41:L55,B67:L80,B84:L98,B102:L116,B126:L139,B143:L157,B161:L175").Select
            Selection.ClearContents
            Sheets("3 NIGHTS").Select
            Range("B6:L19,B23:L37,B41:L55,B67:L80,B84:L98,B102:L116,B126:L139,B143:L157,B161:L175").Select
            Selection.ClearContents
            Sheets("4 DAYS").Select
            Range("B6:L19,B23:L37,B41:L55,B67:L80,B84:L98,B102:L116,B126:L139,B143:L157,B161:L175,B184:L197,B201:L215,B219:L233").Select
            Selection.ClearContents
            Sheets("4 NIGHTS").Select
            Range("B6:L19,B23:L37,B41:L55,B67:L80,B84:L98,B102:L116,B126:L139,B143:L157,B161:L175,B184:L197,B201:L215,B219:L233").Select
            Selection.ClearContents


        Application.ScreenUpdating = True

     'Will save the book once cleared ready for new week
ActiveWorkbook.Save



End With
End Sub


Any pointers on what else i've done on here would be great, i've basically searched google, and put what worked for me, so most of this, probably isn't commom/good practice?

Thanks