Hello,
In a macro I'm trying to move the active cell over to the right one cell and copy that and the further 10 cells to the right. I've managed to move the activated cell with the offset command but can't get it to copy all the cells?
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.Unprotect
ActiveCell.Offset(0, 1).Select
Selection.Copy
Range("B2").Select
ActiveSheet.Paste
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("3:3").Select
Selection.Copy
Rows("2:2").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Reply to craigo
Configuration: Windows Vista Internet Explorer 7.0
Copy cells vba to new sheet Copying certain rows from notepad into excel using a macro Excel copy contents of cell without background Excel macro copy to text file Excel macro value cell other sheet Excel vba "copy cells" How to find the blank cell using macro How to get pictures from cell phone has no service to a computer How to validate a cell by removing the special characters in excel macro Macro copy cell and paste into empty column Macro excel macro copy cell Macro extract numbers with spaces from a cell in excel Macro if cell is a color Macro move cursor to next blank cell Macro on how to combine text in different cells to only one cell Macro set cell range border Macro to insert cell value to target Move cells left excel macro