Copy Paste Macro with Values & Skipping Blanks

There is no code there from Leith Ross. Did you post the link to the right thread? Or did you mean the code by jeffreybrown?

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

Try this

Sub CopyAmdPaste()

  Dim C As Long
  Dim Col As Object
  Dim DstRng As Range
  Dim R As Long
  Dim RngRow As Range
  Dim SrcRng As Range
  
    Set SrcRng = Worksheets("Sheet1").Range("New_Range2")
    Set DstRng = Worksheets("Sheet2").Range("A1")
    
    Application.ScreenUpdating = False
    
     'Copy all non empty rows to the destination range
      For Each RngRow In SrcRng.Rows
        If WorksheetFunction.CountA(RngRow) <> 0 Then
           RngRow.Copy 
           DstRng.Offset(R, 0).pastespecial(xlpastevalues)
           R = R + 1
        End If
      Next RngRow
      
      Set DstRng = DstRng.Resize(R, SrcRng.Columns.Count)
      
       'Remove all empty columns except "B"
        For C = DstRng.Columns.Count To 3 Step -1
          Set Col = DstRng.Columns(C)
          If WorksheetFunction.CountA(Col.Cells) = 0 Then
             Col.EntireColumn.Delete
          End If
        Next C
        
    Application.ScreenUpdating = True
    
End Sub

Do you have a sample file that i could test on?

I got it to work for you - Replace this line

 If WorksheetFunction.CountA(RngRow) <> 0 Then

with

 If RngRow <> "" Then