Function test() As Boolean
ActiveWorkbook.ActiveSheet.Range("A2:A" & Range("B1000000").End(xlUp).Row).UnMerge
ActiveWorkbook.ActiveSheet.Range("A2:J" & Range("B1000000").End(xlUp).Row).Borders.LineStyle = xlNone
ActiveWorkbook.ActiveSheet.Range("A2:J" & Range("B1000000").End(xlUp).Row).Interior.Pattern = xlNone
ActiveWorkbook.ActiveSheet.Range("A2:J" & Range("B1000000").End(xlUp).Row).ClearContents
End Function