Replace previous GetData Procedure with this one

Code:
Sub GetData()

    Dim rngDataRange                As Range
    
    Set rngDataRange = ActiveSheet.Range("A1:C20")
    
    If Not rngDataRange Is Nothing and rngDataRange.Rows.Count > 0 Then
        DataSaveAs rngDataRange, XL_CSV
    End If
    
    Set rngDataRange = Nothing
     
End Sub

Change Range accordingly.