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"