Searching for keyword in multiple columns and rows

Question

I am new to macros and trying to edit this code to search an my entire table and not just one column.

Sub search()
    Dim key_word As String
    Dim x, n_row