Excel Forum

Code: Select all

Sub InsertCol()
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C1").Select
End Sub

Code: Select all

Sub InsertCol()
    Cells(1, Columns.Count).End(xlToLeft).Select
    Do While Selection.Offset(0, -1).Value <> ""
        Selection.EntireColumn.Insert
        Selection.Offset(0, -1).Select
    Loop
End Sub

Code: Select all

Sub SelectData()
Range("A1").Select
 Range(Selection, Selection.End(xlDown)).Select
End Sub

Code: Select all

Dim i As Long
Range("A1").Select
Do While Len(Selection) > 0
    i = i + 1
    Selection.Offset(1, 0).Select
Loop
Selection.Offset(-i, 0).Resize(i, 1).Select