Sub CopyPasteCol()
‘
‘ CopyPasteCol Macro
‘ Macro recorded 19/02/2009 by HPDV6426
‘
‘
Range(”BM15:BM99″).Select
Application.CutCopyMode = False
Selection.Copy
Range(”BR15:BR99″).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns(”BR:BR”).EntireColumn.AutoFit
End Sub
Sub testCell4()
Range(”A14″).Select
b = Range(”C1″).Value
c = Range(”C5″).Value
s = Range(”A65536″).End(xlUp).Value
Range(”A65536″).End(xlUp).Select
y = (s - b)
Range(”C1″).Value = b + c
Sheets(5).Range(”A14″).Offset(b, 0).Resize(y, 67).Select
As you may have realized, I’ve detailed two Macros, here - I hope to incorporate what I need from the first into the second!
I’m trying to get part of “BM” Column to copy, (or preferably, write) into the BR column (but I have to be careful here, since I don’t want it to overwrite all of the existing info in the BR column. The range is designed to shrink, allowing me to just copy the information I need . After I get the answer to this I will put it into a loop.
You’ve already been a great help btw!
Regards