How to add cells to range?

Hi,
I am fairly new to VBA
This is probably easy, but I can;t figure it out lol

Can someone provide me a code such that I can add items to range?

For example, the function code shuold loop through one of the columns and add that cell to a range, if they contain a value in it (doesn;t matter which value).

thanks