Autofill the column

[aliikhlaq2006]

I want a VBA that AutoFill the data in A2,B2,C2 to the last value of the Column D
[TABLE="width: 500"]
<tbody>[TR]
[TD]Name[/TD]
[TD]A/C Code[/TD]
[TD]Country[/TD]
[TD]Balance[/TD]
[/TR]
[TR]
[TD]John[/TD]
[TD]001[/TD]
[TD]USA[/TD]
[TD]100[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]50[/TD]
[/TR]
</tbody>[/TABLE]

In above table the values in A,B,C is automatically autofill to the last value which is 50 in this case of Balance(D)

 

[D3allamerican07]

Try the following code:

Sub Test()
    On Error Resume Next
    LR = Range("D" & Rows.Count).End(xlUp).Row

    Range("A2:C2").AutoFill Destination:=Range("A2:C" & LR), Type:=xlFillCopy

End Sub

 

[Scott Huish]

Sub test()
On Error Resume Next
Range("A3:C" & Range("D" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Formula = "=A2"
Range("A:C").Value = Range("A:C").Value
End Sub

 

[Fluff]

Another option

Sub Chk()
Range("A2:C" & Range("D" & Rows.Count).End(xlUp).Row).FillDown
End Sub

 

[Scott Huish]

It kind of depends on whether there are other names below the sample given or not.

 

[aliikhlaq2006]

Try the following code:

Sub Test()
    On Error Resume Next
    LR = Range("D" & Rows.Count).End(xlUp).Row

    Range("A2:C2").AutoFill Destination:=Range("A2:C" & LR), Type:=xlFillCopy

End Sub

Thank You so much it worked for me one thing more i have a more than 200 sheets can i apply this macro on all sheets by selecting them all

 

[D3allamerican07]

As long as each sheet is set up the same. The following will loop through each sheet and fill the rows.

Sub Test()

Dim sh As Worksheet

For Each sh In Worksheets
    sh.Activate
    
    On Error Resume Next
    LR = Range("D" & Rows.Count).End(xlUp).Row

    Range("A2:C2").AutoFill Destination:=Range("A2:C" & LR), Type:=xlFillCopy
Next

End Sub

 

[aliikhlaq2006]

Thank you so much you save my days

As long as each sheet is set up the same. The following will loop through each sheet and fill the rows.

Sub Test()

Dim sh As Worksheet

For Each sh In Worksheets
    sh.Activate
    
    On Error Resume Next
    LR = Range("D" & Rows.Count).End(xlUp).Row

    Range("A2:C2").AutoFill Destination:=Range("A2:C" & LR), Type:=xlFillCopy
Next

End Sub