Importar datos excel y crear cadena texto con vba

Hola soy nuevo en esto y tengo el siguiente problema...

Necesito importar un archivo .HTM a excel, la hoja activa tiene datos de 3 hojas diferentes y necesito separarlas en 3 hojas diferentes (cada inicio de datos esta marcado con numero 1,2,3)

Después de ellos debo buscar valores y copiar el valor inferior en una cadena de texto : "casa:auto="valor de celda a5",propiedad,"valor celda b7" y así sucesivamente....

Todo ello después lo llevo a un archivo .txt.

Solo tengo el inicio para apertura de archivo:

Sub CARGA_CDD()
Dim strRutaArchivo As String
'elegir archivo strRutaArchivo = _ Application.GetOpenFilename("Libro de Microsoft Excel (*.HTM), *.HTM")

Workbooks(strRutaArchivo).Sheets(1).Range("F4C1").Copy Destination:=ActiveSheet.Range("B1") ?????

Saludos!