You will probably have to loop through the range, for example.

Sub Button3_Click()
    Dim wb As Workbook, ws As Worksheet
    Dim bk As Workbook, BkSh As Worksheet, LstRw As Long
    Dim Rws As Long, Rng As Range, c As Range
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Your Worksheet")
    With ws
        Rws = .Cells(Rows.Count, "A").End(xlUp).Row
        Set Rng = .Range(.Cells(9, 1), .Cells(Rws, 1)).SpecialCells(xlCellTypeVisible)
    End With
    Application.ScreenUpdating = 0
    Set bk = Workbooks.Open("C:\Users\Dave\Downloads\Book3(1).xlsx")
    Set BkSh = bk.Sheets("WorksheetA")
    For Each c In Rng.Cells
        LstRw = BkSh.Cells(Rows.Count, "A").End(xlUp).Row + 1
        c.Range("A1:M1").Copy Destination:=BkSh.Cells(LstRw, 1)
    Next c
    With bk
        .Save
        .Close
    End With

End Sub