Code Correction Required

[Ekguy39]

Hello,

the macro below autofills cells in column with the name above if the cell is blank. The code works well but doesnt stop with column A. for some reason it goes into Column B.

Can anyone correct the code please

Sub Autofill()
ActiveSheet.Columns("A:A").Select
Selection.Unmerge
ActiveSheet.Outline.ShowLevels RowLevels:=2
With Range(Range("A"), Cells(Rows.Count, 3).End(xlUp).Offset(, -1))
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End Sub

 

[njimack]

This line of code refers to columns A:B...

Range(Range("A"), Cells(Rows.Count, 3).End(xlUp).Offset(, -1))

Try this :

 Sub Autofill()
Dim LastRow As Long
Application.ScreenUpdating = False
With ActiveSheet
    .Columns("A:A").UnMerge
    .Outline.ShowLevels RowLevels:=2
    
    LastRow = .Cells(Rows.Count, 3).End(xlUp).Row
    
    With Range(.Cells(2, 1), .Cells(LastRow, 1)).SpecialCells(xlCellTypeBlanks)
        .Formula = .Offset(-1).Value
    End With
End With
Application.ScreenUpdating = True
End Sub

 

[Ekguy39]

Its not working properly. The macro before would copy down the data until it came to a populated cell, then it would copy down the new data until again it hit new data. The macro now just copies down the data from the frist cell A7 but doesnt do what it did previously with new data.

 

[Ekguy39]

is there anyway to change this line of code to just look at column A

Range(Range("A"), Cells(Rows.Count, 3).End(xlUp).Offset(, -1))

 

[njimack]

Its not working properly. The macro before would copy down the data until it came to a populated cell, then it would copy down the new data until again it hit new data. The macro now just copies down the data from the frist cell A7 but doesnt do what it did previously with new data.

Your code doesn't copy anything. It writes a formula to blank cells within the selected range then converts it to a value. My code does the same without selecting the range or using a formula.

You haven't provided a sample of your data, so don't understand what you mean by old or new data.

 

[njimack]

is there anyway to change this line of code to just look at column A

Range(Range("A"), Cells(Rows.Count, 3).End(xlUp).Offset(, -1))

Range(Range("A"), Cells(Rows.Count, 3).End(xlUp).Offset(, -2))