Needing Loop to copy/paste if there is info in the row

**feephan** · 03-24-2011, 09:14 AM

Hello,

I am quite a noob at programming in vba, and am looking for some help. I am needing to write a macro that would start at a defined cell in Sheet1 (A6) and then copy/paste that cell into a specified cell in another sheet inside the same workbook (Sheet2!A8). I then need a loop to repeat the copy/paste command as long as there is data in Sheet1, column A. Can anyone help me?

Thanks so much!

**pike** · 03-25-2011, 01:29 AM

Hi feephan,
Welcome to the forum

Loops can be slow so finding all the cells with values first copy then paste

Sub ftest()

With Sheets("Sheet1")
.Range("A6", Range("A6").End(xlDown)).Copy Destination:=Worksheets("Sheet2").Range("A8")
End With
End Sub

Thread: Needing Loop to copy/paste if there is info in the row

Thread Tools

Display

Needing Loop to copy/paste if there is info in the row

Re: Needing Loop to copy/paste if there is info in the row

Thread Information

Users Browsing this Thread

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions