Andy D 2002
Board Regular
- Joined
- Apr 22, 2002
- Messages
- 106
hi i'm a bit of a novice, how do i change below so copies to, say, "sheet2" instead of adding new sheet
thanks
Andy
Dim v
Dim s As Range
Dim c As Range
Dim t As Range
Dim sTitle As Range
Dim w As Worksheet
Set s = ActiveSheet.Range("i2")
Set s = ActiveSheet.Range(s.End(xlToRight), s.End(xlDown))
Set sTitle = ActiveSheet.Range("A1:H1")
Set w = Worksheets.Add()
Set t = w.Range("A1")
sTitle.Range("A1:H1").Copy
t.Range("A1:H1").PasteSpecial xlPasteValues
For Each c In s
Set t = t.Offset(1, 0)
c.End(xlToLeft).Range("A1:H1").Copy
t.Range("A1:H1").PasteSpecial xlPasteValues
t.Offset(0, = c.End(xlUp).Value
t.Offset(0, 9) = c.Value
Next
thanks
Andy
Dim v
Dim s As Range
Dim c As Range
Dim t As Range
Dim sTitle As Range
Dim w As Worksheet
Set s = ActiveSheet.Range("i2")
Set s = ActiveSheet.Range(s.End(xlToRight), s.End(xlDown))
Set sTitle = ActiveSheet.Range("A1:H1")
Set w = Worksheets.Add()
Set t = w.Range("A1")
sTitle.Range("A1:H1").Copy
t.Range("A1:H1").PasteSpecial xlPasteValues
For Each c In s
Set t = t.Offset(1, 0)
c.End(xlToLeft).Range("A1:H1").Copy
t.Range("A1:H1").PasteSpecial xlPasteValues
t.Offset(0, = c.End(xlUp).Value
t.Offset(0, 9) = c.Value
Next