I want to create an excel with a macro which does this:
It takes a values from one sheet and paste them in another sheet in the first empty Row. I currently have this and this does paste but then the formula, not the values. When I change Paste to Pastespecial it does not work anymore. Can anybody help me with this?

```
Sub CopyPasteSpecial()
Set wsA = Sheet3
Set wsW = Sheet5
wsA.Range("A3").Copy

Sheet5.Activate
  Dim i As Integer
  Application.ScreenUpdating = False
  NumRows = Range("C5", Range("C5").End(xlDown)).Rows.Count
  Range("C5").Select
  For i = 1 To NumRows
     ActiveCell.Offset(1, 0).Select
  Next
  Application.ScreenUpdating = True
  ActiveSheet.Paste

```