Mark,

This copies the values 1 cell at a time


Sub stantial()
x = 1
Dim MyRange As Range
Set MyRange = Worksheets("Sheet1").Range("A1:" &
Range("IV1").End(xlToLeft).Address)
For Each c In MyRange
c.Select
Worksheets("Sheet2").Cells(1, x).Value = c.Value
x = x + 1
Next
End Sub

Mike


"Mark Costello" wrote:

Thank you for that, although I don't want to copy and paste the values as a
range, I need to do them individually (what I'm trying to do isn't as simple
as my example, unfortunately)

"Mike H" wrote:

Mark,

This copies the used range of row 1 sheet 1 to row 1 sheet 2

Right click the sheet tab with your data in, view code and paste this in:-

Sub stantial()
Dim MyRange As Range
Set MyRange = Range("A1:" & Range("IV1").End(xlToLeft).Address)
MyRange.Copy
Sheets("Sheet2").Range("A1").Select
ActiveSheet.Paste
End Sub

Mike

"Mark Costello" wrote:

Hello,

could someone help me with using a macro?

I need to use a macro to work along the columns of a spreadsheet (i.e.
select cell A1, copy, paste in another spreadsheet's A1, then select cell B1
and if not blank, copy and paste in the other spreadsheet's B1 and so on).

I will be using nearly all the columns in the spreadsheet so it's not
feasable to just type in the cells in the macro, hence the need for a loop.

Any help would be appreciated!!


Thanks