title: Input Data from a Select File using VBA
body: <p>I work at a bank and we regularly receive quarterly Data from Nasdaq Smart about market abuse. I have been assigned with the task of creating a macro to summarize this data to be able to visualize market abuse over longer timelines. </p>
  
  <p>So far I am able to manually select which workbook I am interested in and then the part of the workbook I want to import gets automatically selected. </p>
  
  <p>The problem I have run into is that it wont input the selected data into the new file. If I can trust the compiler, than the issue is that the range function isn't supported in this case.</p>
  
  <p>Private Sub CommandButton23_Click()</p>
  
  <pre><code>Dim wkbCrntWorkBook As Workbook
  Dim wkbSourceBook As Workbook
  Dim rngSourceRange As Range
  Dim rngDestination As Range
  Dim bottomCell As Range
  Dim rngTemp As Range
  Set wkbCrntWorkBook = ActiveWorkbook
  With Application.FileDialog(msoFileDialogOpen)
      .Filters.Clear
      .Filters.Add "Excel 97-2003", "*.xlsx; *.xlsm; *.xlsa , *.xls"
      .AllowMultiSelect = False
      .Show
      If .SelectedItems.Count &gt; 0 Then
          Workbooks.Open .SelectedItems(1)
          Set wkbSourceBook = ActiveWorkbook
          Set bottomCell = wkbSourceBook.Sheets("par_ACCOUNT").Cells.Find(what:="Account by Type")
          Set rngTemp = wkbSourceBook.Sheets("par_ACCOUNT").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
              If Not rngTemp Is Nothing Then
                wkbSourceBook.Sheets("par_ACCOUNT").Range(bottomCell, rngTemp.Offset(0, 65)).Select
              End If
          wkbCrntWorkBook.Activate
          Set rngDestination = wkbCrntWorkBook.Range("A1")
          Selection.Copy rngDestination
          rngDestination.CurrentRegion.EntireColumn.AutoFit
          wkbSourceBook.Close False
      End If
  End With
  </code></pre>
  
  <p>End Sub</p>
  
  <p>Thanks everybody ahead of time for your help. This is my first time working with VBA and Stackoverflow, so any kind of help is welcome. </p>