Macro para un rango y condiciones determinadas

Buenos días, el experto Luis Mondelo, me sugirió esta macro como solución a mi pregunta de "Crear macro que busque valores en una matriz distintos de cero y que copie y concatene celdas)

Sub proceso()
'por luismondelo
fila = 1
For Each celda In Selection
If celda.Value <> 0 And celda.Value <> "" Then
Cells(fila, 8).Value = Cells(3, celda.Column).Value & Cells(celda.Row, 2)
Cells(fila, 9).Value = celda.Value
fila = fila + 1
End If
Next
End Sub

La solución es buenísima, pero em gustaría añadir lo siguiente:

1. ¿Como programo la macro para que en vez de "In selectión " le pueda poner un rango fijo? ( Lo intenté pero no soy capaz)

2.Además de que me copie los valores de determinados campos cuando el valor sea didtinto de cero quiero que se de también otra condición ( que una celda sea igual a otra)

Muchísimas gracias,

Cris