Copy n Paste into the next available column

[chiswickbridge]

I need a small VBA to copy and paste from one sheet to another, with a catch...


Sheet1 is the source sheet and has dynamic data ( Numbers ) from d11 to d110.


Sheet2 is the destination sheet and the data needs to be pasted in d11.


Later... new data is input into Sheet1....this new data from Sheet1 must be copied and pasted into Sheet2.e11 ( that is...into a new column everytime )




In short, data from Sheet1 must be copy pasted into the free column of Sheet2...commencing from D11..


Thank you for the same...

 

[Fluff]

How about

Sub chiswickbridge()
   With Sheets("Sheet2")
      Sheets("sheet1").Range("D11:D110").Copy Cells(11, Columns.Count).End(xlToLeft).Offset(, 1)
   End With
End Sub

 

[chiswickbridge]

Thanks Fluff....My Mistake...The Source is Numerals ...but the result of a Formula...So now the Formula gets pasted...I need Values only

 

[Fluff]

In that case try

Sub chiswickbridge()
   With Sheets("Sheet2")
      .Cells(11, Columns.Count).End(xlToLeft).Offset(, 1).Resize(100).Value = Sheets("sheet1").Range("D11:D110").Value
   End With
End Sub

 

[chiswickbridge]

Perfect.....Fluff....Thank you very much.....

 

[Fluff]

You're welcome & thanks for the feedback