>>96

For r = 1 To Sheet1.Range("A" & Rows.Count).End(xlUp).Row