Copying Columns to another worksheet

[jfutrell73]

I am copy a couple of columns to a separate worksheet. I have now added column N and need to copy to column A on the new worksheet. I'm not sure how to seperate M & N on the new sheet. Right now M and N copy down column B. Thank you for the help.

Here is the code I have:

Dim cell As Range, r As Long
r = Sheets("Price Summary").Range("A65536").End(xlUp).Row + 1
Application.ScreenUpdating = False

For Each cell In Sheets("250# Vessel Pricing TEST").Range("M17:M37,N17:N37")
If Len(cell) > 0 Then
Sheets("Price Summary").Range("B" & r).Value = cell.Value
r = r + 1
End If
Next cell
Application.ScreenUpdating = True
End Sub

 

[jfutrell73]

Correction - I am trying to copy.......

Thanks again for any help.