Macro to copy over cell value rather than actual cell (code included)

[jayinthe813]

Private Sub DailyCountExport()

Dim wb As Workbook
Dim ws As Worksheet
    

    Set wb = Workbooks.Open(fileName:= _
        "C:\Daily Count.xls")
    Set ws = wb.Worksheets(1)
    With ws
    
        nextrow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    End With
    
        With Workbooks(2).ActiveSheet
        
        
        ws.Cells(nextrow, "A") = Format(Date, "dd-mmm")
        Workbooks(2).Worksheets("Daily Statistics").Range("B21").Copy ws.Cells(nextrow, "B")
      
        



      
    End With
    
    wb.Save
    wb.Close
    
    Set ws = Nothing
    Set wb = Nothing



End Sub

This copies over a daily count and exports it into a file so that the user does not have to do it daily, as is, it works fine, but I might need to re-tweak it due to drive availability issues. What I would like to do is instead of copying B21, copy the value of B21, because right now it is pulling the formatting as well, when I just want the value. Any ideas?