VBA copy value down a column ignoring blank cells

[Falko26]

Hey Team,

I'm trying to copy and paste the value of a cell down a corresponding column ignoring the paste function if the cell value in the column next to it is blank.

In this example column "I" will get populated with the vendor information but only if the component type column "H" has a value.

Thanks,

 

[Fluff]

Not sure what your rows are but how about

Sub Falko()
   Range("H9", Range("H" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Offset(, 1).Value = Range("H3").Value
End Sub

 

[Falko26]

Exceptionally fast and accurate response as usual Fluff. Your help is much appreciated!

 

[Fluff]

You're welcome & thanks for the feedback.