Saving excel spreadsheet via userform

You'd use something like:

TheFile = Application.GetSaveAsFilename("YOURPATH\", "Workbook (*.xls), *.xls", , "Save Data:")

If TheFile = False Then
                        MsgBox "You cancelled"
                        Exit Function
                    Else
                        ActiveWorkbook.SaveAs filename:=TheFile
End If

Dim dlgFileDlg As FileDialog
Dim sFolderName As String
Const sFileName = "SampleFileName"
Set dlgFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
With dlgFileDlg
    .AllowMultiSelect = False
    If .Show = -1 Then
        ActiveWorkbook.SaveAs .SelectedItems(1) & "\" & sFileName
    End If
End With

thanks both guys, If I wanted to load a file how would that work.

As in the sense of hitting the button again then going to browsing to select a excel value to read it's contents in certain rows/columns If any of you two have an idea?

what do you mean exactly? do you want to open a workbook whose path is stored in a cell?
could you submit an example to what you are asking?

I ideally want to click a button, then the file browsing loads up and select and excel document. it either needs to open it, preferably not then I get to extract certain rows of data from that excel document and put it into another.

Name Phone ID
K.green 21972957 u14714
y.h 14215 u21489
T.T 258 T14021
j.test 14215 u14521

This is the data inside the document, I'm trying to open so I would say something like read column A(Names) until no more text then read information across in all other corresponding rows.

Heres the file, Let's say I want to do a macro now instead to write the sheets
"CourseBooking"
and
"Course 2"
and then they both write eachother out together in sheet 3!

They wont always be a set range so I would need a condition to stop when it's empty surely? in the rows I mean?

ie some might have 6 rows, some sheets might have 200 etc