How to Copy CSV Files to Current Workbook

This is how I would write this, does it work any better for you?

Option Explicit

Sub ABC()
Dim sPath As String, sName As String
Dim bk As Workbook, sh As Worksheet

    Set sh = ActiveSheet  ' this is the summary sheet
    sPath = "H:\Macros\OR Reports\Macro OR Reports\"
    sName = Dir(sPath & "*.csv")

    Do While Len(sName) > 0
        Set bk = Workbooks.Open(sPath & sName)
        Range("A1").UsedRange.Copy
        sh.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
        sh.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteFormats
        bk.Close False
        sName = Dir()
    Loop


End Sub