Cambiar nombre de destino.

[Davidpincho]

Buenos días.

Soy nuevo en esto de las macros.

estoy usando una macro para importar archivos csv en un hoja Excel, el problema es que al final necesito 8 hojas de Excel y la macro que tengo, le tengo que especificar nombre de hoja, por lo que al final tengo 8 macros.

alguien me puede ayudar e indicarme que tengo que cambiar para que la macro solo me anexe los datos csv en la hoja activa.

pongo ejemplo:

Sub AnexarCSV50()

Dim t As Single

Dim LastRow As Long

LastRow = Range("B8").End(xlDown).Row + 1

strFile = Application.GetOpenFilename("CSV, *.csv")

If strFile = Empty Then

Response = MsgBox("Ningún fichero seleccionado", _

vbOKOnly, "Error")

Exit Sub

Else

End If

With Sheets("Acom. 50m").QueryTables.Add(Connection:= _

"TEXT;" & strFile _

, Destination:=Sheets("Acom. 50m").Range("B" & LastRow))

.Name = "fichero"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False