VBA to fill down multiple columns after applying filter

Hi,

I've been stuck trying to figure out the below problem as was hoping to get some assistance.

I have the below table and would like to filter on column C where value = 2 and then fill down range from D3 to I3 down on this filtered data. This range of cells all have formulas in them. I have searched and could only find solutions for I couldn't find anything that fills multiple columns.

col A	col B	col C	col D	col E	col F	col G	col H	col I
1	car	1	abc	def	ghi	jkl	mno	pqr
1	car	2	=D1	=E1	=F1	=G1	=H1	=I1
1	car	1	abc	def	ghi	jkl	mno	pqr
1	car	2
1	car	1	abc	def	ghi	jkl	mno	pqr
1	car	2
1	car	1	abc	def	ghi	jkl	mno	pqr
1	car	2

Therefore, the end result would be:

col A	col B	col C	col D	col E	col F	col G	col H	col I
1	car	1	abc	def	ghi	jkl	mno	pqr
1	car	2	=D1	=E1	=F1	=G1	=H1	=I1
1	car	1	abc	def	ghi	jkl	mno	pqr
1	car	2	=D3	=E3	=F3	=G3	=H3	=I3
1	car	1	abc	def	ghi	jkl	mno	pqr
1	car	2	=D5	=E5	=F5	=G5	=H5	=I5
1	car	1	abc	def	ghi	jkl	mno	pqr
1	car	2	=D7	=E7	=F7	=G7	=H7	=I7

Many thanks in advance

Try this:

Sub KKNBX(): With ActiveSheet.UsedRange
.AutoFilter Field:=3, Criteria1:="=2"
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-2]C"
.AutoFilter
End With: End Sub

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

I just realized that all you really need is this:

Sub KKNBX(): With ActiveSheet.UsedRange
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-2]C"
End With: End Sub