M 
		
								
				
				
			
		mpeplow
Is there any way to put this in one statement?
Dim FinalRow As Variant
FinalRow = ActiveSheet.Range("A65536").End(xlUp).Row
				
			Dim FinalRow As Variant
FinalRow = ActiveSheet.Range("A65536").End(xlUp).Row
