hi guys
i was wondering if i could use the code below twice in one macro so that it saves to two different sheets
i have tried it and i keep getting compile error duplicate declaration in current scope.
i have copied the code below twice but will be changing certain cells.
i want it to open one sheet called goodbye and save as below and also to open a book called hello ( the path is different) and to do the same thing
your help as ever is appreciated
regards

  Dim wbTo As Workbook, wbFrom As Workbook

Application.ScreenUpdating = False

'Change path below
Set wbFrom = ThisWorkbook
Set wbTo = Workbooks.Open("C:\Documents and Settings\st\Desktop\goodbye.xlsx")

With wbTo
    With .Sheets(1).Cells(Rows.Count, 1).End(xlUp)(2)
        .Value = wbFrom.Sheets(1).Range("H7")
        .Offset(, 1) = wbFrom.Sheets(1).Range("D2")
        .Offset(, 2) = wbFrom.Sheets(1).Range("D3")
        .Offset(, 3) = wbFrom.Sheets(1).Range("H6")
        .Offset(, 4) = wbFrom.Sheets(1).Range("D5")
        .Offset(, 5) = wbFrom.Sheets(1).Range("D6")
        .Offset(, 6) = wbFrom.Sheets(1).Range("D7")
        .Offset(, 7) = wbFrom.Sheets(1).Range("D8")
        .Offset(, 8) = wbFrom.Sheets(1).Range("D9")
        .Offset(, 9) = wbFrom.Sheets(1).Range("D10")
        .Offset(, 10) = wbFrom.Sheets(1).Range("D11")
        .Offset(, 11) = wbFrom.Sheets(1).Range("D12")
        .Offset(, 12) = wbFrom.Sheets(1).Range("D13")
        .Offset(, 13) = wbFrom.Sheets(1).Range("D15")
        .Offset(, 14) = wbFrom.Sheets(1).Range("D16")
        .Offset(, 15) = wbFrom.Sheets(1).Range("D17")
        .Offset(, 16) = wbFrom.Sheets(1).Range("D18")
        .Offset(, 17) = wbFrom.Sheets(1).Range("D19")
        .Offset(, 18) = wbFrom.Sheets(1).Range("D20")
        .Offset(, 19) = wbFrom.Sheets(1).Range("D21")
        .Offset(, 20) = wbFrom.Sheets(1).Range("D22")
        .Offset(, 21) = wbFrom.Sheets(1).Range("D23")
        .Offset(, 22) = wbFrom.Sheets(1).Range("D24")
        .Offset(, 23) = wbFrom.Sheets(1).Range("H1")
        .Offset(, 24) = wbFrom.Sheets(1).Range("H2")
        .Offset(, 25) = wbFrom.Sheets(1).Range("H3")
        .Offset(, 26) = wbFrom.Sheets(1).Range("H4")
        .Offset(, 27) = wbFrom.Sheets(1).Range("H5")
        .Offset(, 28) = wbFrom.Sheets(1).Range("D1")
        .Offset(, 29) = wbFrom.Sheets(1).Range("D4")
        .Offset(, 30) = wbFrom.Sheets(1).Range("D14")
        .Offset(, 31) = wbFrom.Sheets(1).Range("D26")
        .Offset(, 32) = wbFrom.Sheets(1).Range("D27")
    End With
    .Close True
   End With

Application.ScreenUpdating = True
            
End Sub