Sub Test_For_REL()
Dim r As Long
Dim vSheets() As Variant
Dim i As Integer

vSheets = Array("M50", "M55", "M55") ' add sheet names to match
    For i = LBound(vSheets) To UBound(vSheets) 'switch sheets automatically
        Sheets(vSheets(i)).Activate
            r = 2 ' the start row in the worksheet
        Do While Len(Range("A" & r).Formula) > 0
        ' repeat until first empty cell in column A
            
            
            
            
            
    Next i
    
End Sub
HeHe so true mdmackillop

This is as far as i got at moment not sure how to even start on remaining codes

Merc