Copy value of cell in sheet(1) IF next cell in Sheet(2)is not blank. Paste data into next blank cell of Sheet(2) Col F

[RaDoubleD]

Hi all,

I tried to summarize it with the title. I have two sheets I'm working with that i'll use index references for.

I want to paste the value in cell "E1" from Sheet(1) to every cell in Col F of Sheet(2) if the adjacent cell in Sheet(2) Col A has a value.

In other words: I have a name on a order form in Sheet(1) that needs to copy and paste to each line of the order after it has been imported into Sheet(2) by my other code.

The pasting should start on the first blank line in Col F and if the adjacent cell (on the same row) in Col A is not blank then past the value of cell F1 in Sheets(1) into that blank cell in Col F for Sheets(2). Then repeat until there is a blank cell in Col A for Sheets(2).

Thank you!

 

[Fluff]

Hi & welcome to the board.

maybe

Sub chk()
   With Sheets("Sheet2")
      .Range(.Range("F" & Rows.Count).End(xlUp).Offset(1), .Range("A" & Rows.Count).End(xlUp).Offset(, 5)).Value = Sheets("Sheet1").Range("E1").Value
   End With
End Sub