Copy text in a column till last row based on adjacent column

[rohan8510]

hi could you please help me out with this code getting error while running

Workbooks.Add 
newWB = ActiveWorkbook.Name 
 
Set lastrow = Range(Workbooks(newWB).Sheets("Sheet1").range("g") & Rows.Count).End(xlUp).Row 
Range("f2:f" & lastrow) = "CB"

[rohan8510]

hi could you please help me out with this code getting error while running, many thanks

Set lastrow = Range(Workbooks(newWB).Sheets("Sheet1").range("g") & Rows.Count).End(xlUp).Row 
Range("f2:f" & lastrow) = "CB"