Currently I copy and paste a range of cells one cell at a time because I can't get a range using a start and end variable (to be determined by an ealrier loop counting where the cells start and end) such as Range("A" & i : "A" & intLastRow).select.
Any ideas how i could copy the whole range, and then move it over and paste the whole thing, rather than coying each cell individually? Below is what I'm currenlty doing:

'Load Dates into RelativeValueGraph
Dim strCurrentDate As String
i = 9
d = 258
Windows("IWS many lines.xls").Activate
Range("A" & i).Select
Do While Range("A" & i).Value = 1
Range("C" & i).Select
Selection.Copy
Windows("RelativeValueGraphs.xls").Activate
Range("A" & d).PasteSpecial Paste:=xlPasteValues
i = i + 1
d = d + 1
Windows("IWS many lines.xls").Activate
Loop

Hows it going? Not sure if this is the most effective method and some real programers may point out the downfalls of the following
'Load Dates into RelativeValueGraph
Dim strCurrentDate As String
i = 9
d = 258
Windows("IWS many lines.xls").Activate
Range("A" & i).Select
Do until activecell.value = ""
i=i+1
activecell.offset(1,0).select
Loop
'Looks like you were using column A as reference but copying column C if that is the case then as follows
Range("C9" : "C" & i).select.
Selection.Copy
'For the paste section just select the cell you are string from and drop the range in
Windows("RelativeValueGraphs.xls").Activate
'Range("A" & d).PasteSpecial Paste:=xlPasteValues
Range("A1").PasteSpecial Paste:=xlPasteValues 'start range?

Hope this helps
Regards
Rob

Currently I copy and paste a range of cells one cell at a time because I can't get a range using a start and end variable (to be determined by an ealrier loop counting where the cells start and end) such as Range("A" & i : "A" & intLastRow).select.
Any ideas how i could copy the whole range, and then move it over and paste the whole thing, rather than coying each cell individually?

You can do it the way you want, your range just has the " in the wrong places and is missing a &

Range("A" & i : "A" & intLastRow).select.
should read
Range("A" & i & ":A" & intLastRow).Select