Thread: Create worksheet in masterfile and add content below existing content

I did it! Great! Thanks Google...

Private Sub CommandButton9_Click()
    Dim IntSht As Worksheet
    Dim IntBk As Workbook
    Dim ExtBk As Workbook
    Dim ExtFile As String

'Name workbooks and open external workbook
    Set IntBk = ActiveWorkbook
    Set IntSht = IntBk.ActiveSheet
    'ExtFile = "N:\Uren\Master Workbook.xls"
    ExtFile = "F:\Master Workbook.xls"
    If Dir(ExtFile) <> "" Then
    Else
        ExtFile = Application.GetOpenFilename(FileFilter:="microsoft excel files (*.xls), *.xls", Title:="Please Select A File")
    End If
    On Error Resume Next
    Set ExtBk = Workbooks(Dir(ExtFile))
    On Error GoTo 0
    If ExtBk Is Nothing Then
        Application.Workbooks.Open ExtFile
        Set ExtBk = Workbooks(Dir(ExtFile))
    End If

'Set sheetname based on value B7 in active sheet
    Dim strSheetName As String
    strSheetName = IntSht.Range("B7").Value

'Check if sheet with value B7 exists, if not then create sheet
    Dim wsTest As Worksheet
 
    Set wsTest = Nothing
    On Error Resume Next
    Set wsTest = ExtBk.Worksheets(strSheetName)
    On Error GoTo 0
 
    If wsTest Is Nothing Then
    ExtBk.Worksheets.Add.Name = strSheetName
    End If

'Copy range: http://www.rondebruin.nl/copy1.htm
    Dim SourceRange As Range, DestRange As Range
    Dim DestSheet As Worksheet, Lr As Long

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

'fill in the Source Sheet and range
    Set SourceRange = IntSht.Range("B11:N21")

'Fill in the destination sheet and call the LastRow
'function to find the last row
    Set DestSheet = ExtBk.Worksheets(strSheetName)
    Lr = DestSheet.Cells(Rows.Count, "B").End(xlUp).Row

'With the information from the LastRow function we can create a
'destination cell and copy the data from one range to another
    Set DestRange = DestSheet.Range("A" & Lr + 2)
    SourceRange.Copy DestRange
    'We make DestRange the same size as SourceRange and use the Value
    'property to give DestRange the same values
'    With SourceRange
'        Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
'    End With
'    DestRange.Value = SourceRange.Value

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

'Old way to copy Sheet content to new workbook
'Original line:    IntBk.IntSht.Range("DataDump").Copy ExtBk.Worksheets("Raw Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
'Or: IntSht.Range("A11:M21").Copy ExtBk.Worksheets("Sheet1").Range("A1:M11")

    Application.DisplayAlerts = False
    ExtBk.Save
    ExtBk.Close
    Application.DisplayAlerts = True
'    Call CreateEmail
'    CommandButton9.Enabled = False
End Sub