Private Sub CommandButton1_Click()
    DisplayNonEmptyCells "A1:D10", "Sheet1"
End Sub


Private Sub DisplayNonEmptyCells(ByVal pstrAdress As String, ByVal pstrSheet As String)
    Dim objRange As Range
    Dim intTopRow As Integer
    Dim intBtmRow As Integer
    Dim intLeftCol As Integer
    Dim intRightCol As Integer
    Dim intRow As Integer
    Dim intCol As Integer
    
    Set objRange = ThisWorkbook.Worksheets(pstrSheet).Range(pstrAdress)
    
    intTopRow = objRange.Row
    intBtmRow = objRange.Rows.Count + objRange.Row -  1 
    intLeftCol = objRange.Column
    intRightCol = objRange.Columns.Count + objRange.Column -  1 

    For intRow = intTopRow To intBtmRow
        For intCol = intLeftCol To intRightCol
            If objRange.Cells(intRow, intCol).Value <> "" Then
                Debug.Print objRange.Cells(intRow, intCol).Address & ", " & objRange.Cells(intRow, intCol).Value
            End If
        Next intCol
    Next intRow
End Sub