In the below code it is showing this error in the last line. Please advise.
columninPSI = S1.Range("C1").End(xlToRight).Column Range("A2:R" &a