Hi
Frustration over many occasions should be relieved in a flash if one of you guys can help me. I am trying to record a macro - and I don't know VB - to copy and paste rows down into blank cells - but the number of cells varies.
e.g.
A 1
2
3
B 1
2
C 1
2
3
4
D 1
My macro should copy the letter (will be "A" at first and fill the empty cells beneath using the end-down key. Once recorded, running the macro should do the same to B and C, stopping at the appropriate number of cells. BUT the macro always pasted 2 rows, not 1, then 3, etc as required. Even though I have clicked the RELATIVE button, it still records like this: - I feel the "A1:A3" is causing the prob... I think that should be flexible.
Sub Macro10()
'
' Macro10 Macro
' Macro recorded 21/08/2003 by Paul Haydock
'
' Keyboard Shortcut: Ctrl+n
'
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Range("A1:A3".Select
ActiveSheet.Paste
Selection.End(xlDown).Select
End Sub
Regs
PAUL HAYDOCK
Frustration over many occasions should be relieved in a flash if one of you guys can help me. I am trying to record a macro - and I don't know VB - to copy and paste rows down into blank cells - but the number of cells varies.
e.g.
A 1
2
3
B 1
2
C 1
2
3
4
D 1
My macro should copy the letter (will be "A" at first and fill the empty cells beneath using the end-down key. Once recorded, running the macro should do the same to B and C, stopping at the appropriate number of cells. BUT the macro always pasted 2 rows, not 1, then 3, etc as required. Even though I have clicked the RELATIVE button, it still records like this: - I feel the "A1:A3" is causing the prob... I think that should be flexible.
Sub Macro10()
'
' Macro10 Macro
' Macro recorded 21/08/2003 by Paul Haydock
'
' Keyboard Shortcut: Ctrl+n
'
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Range("A1:A3".Select
ActiveSheet.Paste
Selection.End(xlDown).Select
End Sub
Regs
PAUL HAYDOCK