How to loop a Macro to copy and paste data until the end of information in a column.

[Norberto813]

Sub Macro4()
'
' Macro4 Macro
'

'
ActiveCell.Select
Selection.Copy
Sheets("dsRNA").Select
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=ActiveCell.Range("A1:A4"), Type:=xlFillCopy
ActiveCell.Range("A1:A4").Select
Sheets("Hamilton Dilution ").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Copy
Sheets("dsRNA").Select
ActiveCell.Offset(4, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=ActiveCell.Range("A1:A4"), Type:=xlFillCopy
ActiveCell.Range("A1:A4").Select
End Sub

 

[Joe4]

Welcome to the Board!

Posting just your code without a detailed description (or image) of your data isn't all that helpful to us.
I think it would be more beneficial if you posted a sampling of what your data looks like, along with what you would like your expected result to look like.

MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in

Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.