Solicitar columna mediante InputBox

Saludos a todos.

Tengo un macro que busca en una columna un criterio concreto ("M") y elimina las filas que no lo tienen, copiándome los resultados en otra hoja, hasta aquí la macro funciona bien, ahora necesitaría que dicha columna pudiera elegirse a través de un InputBox. Lo ideal, ya que la primera fila de la hoja es una fila de fechas, sería que se preguntara por un día concreto, pero no he sido capaz de conseguirlo.

También me interesaría que se pudiera elegir el criterio a buscar, mediante el mismo método.

Agradecería algún consejo.

Mil gracias de antemano por la ayuda. 

Sub copiar_filas()
j = 2
For i = 2 To 158 Step 2
Sheets(“MARZO”).Activate
If Cells(i, “D”) = "M" Then
Range(Cells(i, “C”), Cells(i, “C”)).Copy
Sheets("Hoja3").Activate
Cells(j, "A").Select
ActiveSheet.Paste
j = j + 1
End If

Next

End Sub