Forum Discussion
How to apply changes only to active rows when writing a macro
I am trying to write a macro which will insert a few blank columns and then insert specific values into the new columns (one example is simply inserting the letter "C"). This is easy to do manually, ...
For example:
Sub Test()
Dim LastRow As Long
Application.ScreenUpdating = False
LastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range("D1:F1").EntireColumn.Insert
Range("D1:F" & LastRow).Value = "C"
Application.ScreenUpdating = True
End Sub