Hi,

For .Cells 2 Longs are used
first the row number
second the column number, not the letter(s) as shown on the worksheet

Furthermore you can use a ranges of cells at ones to fill with a value

You are close, try this:



Set ws1 = Worksheets("Calc")
Set ws2 = Worksheets("Generator")

Dim lastrowDMC As Long
Dim DMC As Long
DMC = ws1.Range("I11").Value
With ws2
lastrowDMC = .Cells(Rows.Count, "B").End(xlUp).Row
.Range(Cells(14, 3), Cells(lastrowDMC, 3)).Value = DMC
End With


Hoop this helps,


Executor