Copy rows of data to another sheet

[pwill]

Hi can anyone help?

I want to copy 14 rows of data from sheet2 "E:K" to sheet1 "T5:Z18"

I have a start row value on sheet3 "Q2" and want the data being copied from sheet2 to start from the row based on the value in sheet3 "Q2"

ie
If the value on sheet3 "Q2" has 21 then the data to be copied on sheet2 would be "E21:K34"

If the value on sheet3 "Q2" has 50 then the data to be copied on sheet2 would be "E50:63"

And so on...

Any help would be appreciated

Regards

pwill

 

[Fluff]

How about

Sub CopyData()
   Sheet2.Range("E" & Sheet3.Range("Q2").Value).Resize(14, 7).Copy Sheet1.Range("T5")
End Sub

 

[pwill]

Hi Fluff,

Thanks for that, can't try it out just now but will give it a go later and let u know how I get on. I'm sure it will work fine

Just a quick thought, would it be possible to have the code 'equal' the data instead of usuing copy and paste?

pwill

 

[Fluff]

Try

Sub CopyData()
   Sheet1.Range("T5").Resize(14, 7).Value = Sheet2.Range("E" & Sheet3.Range("Q2").Value).Resize(14, 7).Value
End Sub

 

[pwill]

Thank you Fluff,

 

[Fluff]

You're welcome

 

[pwill]

Try

Sub CopyData()
   Sheet1.Range("T5").Resize(14, 7).Value = Sheet2.Range("E" & Sheet3.Range("Q2").Value).Resize(14, 7).Value
End Sub

Works Perfect Thanks again Fluff, much appreciated

pwill