Question: [question tables and required output are there in image](https://i.stack.imgur.com/70HWx.png) 
how can we find the employee id, name who don't have address in address table or address is null?

how can we write query for this requirement?
please help me?

Answer: 
Try to create `Sub` with parameters and call it later how You want :)

```
Sub delR(startSheet As Long, endSheet As Long, setCol As String)

Dim deleteRow As Long
Dim ws As Worksheet

        For i = startSheet To endSheet
            Sheets(i).Select

            Set ws = ActiveSheet

            For deleteRow = ws.Range(setCol & Rows.Count).End(xlUp).Row To 2 Step -1

                If ws.Range(setCol & deleteRow).Value = 0 Then
                    Rows(deleteRow).EntireRow.Delete
                End If

            Next deleteRow
        Next

End Sub

Sub test_delR()

    Call delR(3, 4, "Q")
    Call delR(6, 7, "C")

End Sub

```
An addition to @Teamothy's answer: If you're about to work loop-like with distinct, non-contiguous values, you can use an `Array()` solution, like this: 

```
Dim arSheets() As Variant   ' this method works with Variant only
Dim arCols() as Variant
Dim i As Long

arSheets = Array(3, 4, 6, 7)
arCols = ("Q", "Q", "C", "C")

For i = LBound(arSheets) To UBound(arSheets)
    delR_mod arSheets(i), arCols(i)
Next

```

NB1: Obviously, `delR_mod` would process only 1 sheet and accept only two parameters.

NB2: If you use only one array, you can use `For Each some_variant In arSheets` or even `For Each some_variant In Array(3, 4, 6, 7)`