RowCount = Browser("Browser").Page("Page").WebTable("Convertible").RowCount
ColumnCount = Browser("Browser").Page("Page").WebTable("Convertible").ColumnCount(1)

For a = 1 To RowCount
     
	For b = 1 To ColumnCount
		
		Set cfsmake= Browser("Browser").Page("Page").WebTable("Convertible").ChildItem(a,b,"Link",0)
			cfsmake.Click
		R1 = Browser("Browser").Page("Page").WebTable("Aston Martin").RowCount
		C1 = Browser("Browser").Page("Page").WebTable("Aston Martin").ColumnCount(1)
			
		For a1 = 1 To R1
			
			For b1 = 1 To C1
				
				cellData = Browser("Browser").Page("Page").WebTable("Aston Martin").GetCellData(a1,b1)
				If cellData = Browser("Browser").Page("Page").WebTable("Aston Martin").GetCellData(R1,C1-1) Then 
		   		   Browser("Browser").Page("Page").Link("Home").Click
				Else 	
				    Set cfsmake= Browser("Browser").Page("Page").WebTable("Aston Martin").ChildItem( a1 , b1 ,"Link",0)
	  					cfsmake.Click
						Browser("Browser").Back
		 				b1 = b1+1
		 		End If 
		 	Next 
		Next
	Next 
Next