I Need to combine the two Macro’s below into One Button:

Because I change the name of the Workbook each time I use it I can’t use: Application.Run "'G BAKER ESTIMATING FORM.xls'!SAVEDATA2"
ActiveWindow.SmallScroll Down:=12
Application.Run "' G BAKER ESTIMATING FORM.xls'!savedata"
Range("L8").Select



Sub SAVEDATA2()
'
' SAVEDATA2 Macro
' Macro recorded 03/24/2010 by Gary W. Baker
' Keyboard Shortcut: Ctrl+s
'
Dim row, rwindex As Integer
row = 0
rwindex = 5
Range("U14:BO14").Select
Selection.Copy
Sheets("DATA").Select
Range("C1").Select
Do
ActiveCell.Offset(1, 0).Activate

Loop Until ActiveCell.Value = ""

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("To CUSTOMER").Select
Application.CutCopyMode = False
Range("l8").Select
End Sub

Sub savedata()
'
' save Macro
' Macro recorded 3/08/2010 by Gary Baker
'
' Keyboard Shortcut: Ctrl+s
'
Dim row, rwindex As Integer
row = 0
rwindex = 5
Range("U14:BO14").Select
Selection.Copy
Workbooks.Open Filename:=" W:\Other\ESTIMATE REPORTS\ESTIMATE DATA.xls"
Sheets("DATA").Select
Range("C1").Select

Do
ActiveCell.Offset(1, 0).Activate

Loop Until ActiveCell.Value = ""

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
ActiveWorkbook.Close
Application.CutCopyMode = False
Range("l8").Select
End Sub

[shelbym]

You can simply copy the SAVEDATA2 sub to the other Excel document. Then you would be able to call it from savedata or just copy the code and past it to the end of savedata. That would work also.

-Shelby