Macro para exportar a CSV

Buenas tardes:

Necesito hacer que en una hoja de excel, al hacer clic en
un botón, me pase los datos que estén en esa hoja a un
archivo CSV. NO necesito que el resto de hojas del libro
se exporten, unicamente en la hoja donde está el botón.

El código que llevo es:

Private Sub CommandButton1_Click()
'CG. 20050224. Generación del archivo plano
Dim NombreArchivo As String
Dim i As Integer
NombreArchivo = "C:\" + Left(Range("A1").Value, 16) +
Left(Range("B1").Value, 1) + "IPS01.txt"
i = MsgBox("Se dispone a generar el archivo: " +
NombreArchivo + ". Desea continuar ?", vbYesNo)
If i = 6 Then
'Aquí es donde necesito generar ese archivo
MsgBox ("El archivo generado satisfactoriamente")
End If
End Sub


Muchas gracias por su ayuda