Copy Range Based Linked Cell in ActiveX ComboBox

Here is My Code, Please Help, How to fix it ...

Private Sub ComboBox1_Change()

    Dim wsDest As Worksheet
    Dim wsSource As Worksheet
    Dim rngData As Range
    Dim baris As Integer
    Dim kolom As Integer
    baris = Range("G17").Value
    kolom = Range("M17").Value
    
    Set wsDest = Worksheets("Displaypage")
    Set wsSource = Worksheets("Source")
    Set rngData = wsSource.Range("a1:c5")
    

    wsDest.Range("a1:c5").ClearContents 
    If baris = -1 Then Exit Sub 'Nothing selected
    rngData.Cells(1).Offset(baris, kolom).Resize(5, 3).Copy
    wsDest.Range("a1").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
        
End Sub