User Range selection

[jtodd]

Hi
Two things - in the below code . I have just recorded a macro to get this .
1, Is there a neater why to do this and
2, The start cell is static but the to cell can vary (j2 static. j50 can vary ) is there a way to acheive this with out having to alter the code every time.

Sheets("Sheet2").Select
Range("J2:J50").Select
Selection.Copy
Sheets("SPW Schedule").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet2").Select
Range("H2:H50").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SPW Schedule").Select
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[Fluff]

Are J50 & H50 the last used cells in those columns?

 

[Fluff]

If the answer to the above is yes try

With Sheets("Sheet2")
   .Range("J2", .Range("J" & Rows.Count).End(xlUp)).Copy
   Sheets("SPW Schedule").Range("A3").PasteSpecial xlPasteValues
   .Range("H2", .Range("H" & Rows.Count).End(xlUp)).Copy
   Sheets("SPW Schedule").Range("D3").PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False

 

[jtodd]

Hi , sorry but j50 and h50 may vary eg always start at j2 but j50 may change