Copy a range in an Excel Workbook

Sub RangeSelect()

Dim xl As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim rg1 As Excel.Range
Dim rg2 As Excel.Range
Dim rg3 As Excel.Range

Set xl = Application
Set wb = xl.ThisWorkbook
Set ws = wb.Sheets(1)
Set ws2 = wb.Sheets(2)
' Selects the Intersection of 2 Ranges in an application & Copies & pastes

'Alternat - Set rg1 = ws1.Range("A1:F10")
Set rg1 = ws.Range(Cells(1, 1), Cells(10, 6))
rg1.Select
Set rg2 = ws.Range(Cells(3, 2), Cells(20, 11))
rg2.Select

Set rg3 = xl.Intersect(rg1, rg2)
rg3.Select
If rg3 Is Nothing Then
    MsgBox "Ranges do not intersect"
Else
    rg3.Select
    With Selection
        .Font.Bold = True
        .Copy
    End With
'    rg1.Copy
    ws2.Range("B2:B2").PasteSpecial (xlPasteValues)
    ws2.Paste ws2.Range("B14:B14")
    
End If

End Sub