How can you guys add to the following macro :


Dim Test_1
Dim Count_Test_1
Test_1 = Range("B5", "B" &
Range("B65536").End(xlUp).Row - 1)
Count_Test_1 = WorksheetFunction.Count(Test_1)
Range("B" & Range("B65536").End(xlUp).Row + 1) =
Count_Test_1



The above Macro counts the data in Column B and Display the result at
the bottom of the Column

problem is:

I need to Count all the entries of the adjacent Columns (i.e. Columns
C, D, E, F, G, H, I, ... , until end of Columns containing data)