Copy one value to all empty cell in one column of another sheet

[jocker_boy]

Hi,

I have a table in sheet "BoM" with values between "A:H", with the column "I" and "J" empty, only with header.

I'm trying to copy one value ("D2") from sheet "teste":

Sheets("teste").Select
Range("D2").Select
Selection.Copy

To paste that value to sheet "BoM" on column "I" to all empty cells in this column until the last row of the table "A:H".

And then repeat to copy the value from "E2" from sheet "teste" to the column "j".

Many thanks,
Gonçalo

 

[Fluff]

Is the header in row 1?

 

[jocker_boy]

Is the header in row 1?

Yes.

 

[Fluff]

Ok, how about

Sub jockerboy()
   With Sheets("BoM")
      .Range("I:I").SpecialCells(xlBlanks).Value = Sheets("teste").Range("D2").Value
      .Range("J:J").SpecialCells(xlBlanks).Value = Sheets("teste").Range("E2").Value
   End With
End Sub

 

[jocker_boy]

Ok, how about

Sub jockerboy()
   With Sheets("BoM")
      .Range("I:I").SpecialCells(xlBlanks).Value = Sheets("teste").Range("D2").Value
      .Range("J:J").SpecialCells(xlBlanks).Value = Sheets("teste").Range("E2").Value
   End With
End Sub

Thanks for your help.
But i get this error message:

Compile error:
Expected: expression

 

[Fluff]

What was highlighted?

 

[jocker_boy]

What was highlighted?

Nothing.
It's very strange.
I star debug (F8) and appears this message with nothing highlihted.

 

[jocker_boy]

I rewrite your code, instead of "copy and paste" and it works.

Many Thanks

 

[Fluff]

You're welcome & thanks for the feedback.