VB Range Code

Hello, I need some help. I never went to school for excel, more of a DIY person. Sorry in advance for lack of knowledge.

I have a range formula that worked, but once i added another range it, it only picks up the second range now and not first range. I need it to filter out both columns. Example: if cell A4 has value but Q4 is blank, Row is hidden and vise versa.
Thanks

 Private Sub Worksheet_Activate()
     Dim r As Range, c As Range
 Set r = Range("A4:A62")
 Set r = Range("Q4:Q62")   'THE NEW RANGE I ADDED I ALSO TRIED ("A4:A62, Q3:Q62")
 Application.ScreenUpdating = False
 For Each c In r.Rows
     If Len(c.Cells(1).Text) + Len(c.Cells(1).Text) = 0 Then
         c.EntireRow.Hidden = True
     Else
         c.EntireRow.Hidden = False
     End If
 Next c
 Application.ScreenUpdating = True
 End Sub