Ok one nore esthetical question,

Range("B2").Value = "PCBS01"
Range("B2").AutoFill Destination:=Range("B2:L2"), Type:=xlFillDefault

L2 is for 11 files, but can you adapt it to the number you modify, for example 27 zithout counting everytime the Range ?

it is not that important!