VB Code top open file from specific folder and copy from specific sheet

[ateebali]

Dear Sir,
I need VB code to work following way;
I will link it with a button, when we click it, it should open following path;

Thisworkbook.path/Backup/

User select an excel file, the folder has many excel workbooks.xlsb with different names
All workbooks do have sheet named "Layout" so when user select any of worksbook, the following should be copied to "Activesheet"
Copied from "Selected workbook - Worksheet: Layout - Range B6:Q498"
Paste to "Activeworksheet - Range: B6:Q498"
It should paste same format, formula and everything same way

 

[JLGWhiz]

Not sure this is what you are looking for, but you can test it and see.

Sub t()
Dim sh As Worksheet, fPath As String, fName As String
Set sh = ActiveSheet
fPath = "ThisWorkbook.Path\Backup\"
fName = Application.GetOpenFilename("Excel Files (" & fPath & "*.xlsb)," & fPath & "*.xlsb")
Set wb = Workbooks.Open(fName)
wb.Sheets("Layout").Range("B6:Q498").Copy sh.Range("B6")
wb.Close False
End Sub

 

[ateebali]

Dear Sir
Thanks a lot, this worked perfect, I also need one more help, can we join these two codes together?

Sub Copied()sc = Sheets.Count
    sn = ActiveSheet.Name
    For sh = 1 To sc
        If Sheets(sh).Name = sn Then
            ns = sh + 1
            If ns > sc Then ns = 1
            Sheets(ns).Visible = -1
            Sheets(sh).Visible = 2
        End If
    Next sh
    
Dim rng As Range, r%
[A5:A498].EntireRow.Hidden = True
Set rng = [A5:A6]
For r = 9 To 498 Step 4
    Set rng = Union(rng, Cells(r, 1).Resize(2))
Next
rng.EntireRow.Hidden = False


Dim sh As Worksheet, fPath As String, fName As String
Set sh = ActiveSheet
fPath = "ThisWorkbook.Path\Backup\"
fName = Application.GetOpenFilename("Excel Files (" & fPath & "*.xlsb)," & fPath & "*.xlsb")
Set wb = Workbooks.Open(fName)
wb.Sheets("Layout").Range("B6:Q498").Copy sh.Range("B6")
wb.Close False


End Sub