Copy Paste Macro with Values & Skipping Blanks

This is the code from that thread

Sub MoveNumbers()
    Dim i As Long
    Dim j As Long
    j = 12
    For i = 5 To 22
        If Cells(i, 38).Value > 0 Then
            Cells(j, 1).Value = Cells(i, 38).Value
            j = j + 1
        End If
    Next i
End Sub

It is already pasting the values. See this line

  Cells(j, 1).Value = Cells(i, 38).Value