Problems with Range

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 1 And Target.Value <> "" Then
       ThisWorkbook.Sheets("gg").Cells(Target.Row, 2).Formula = yadda yadda yadda
   End If
End Sub

There's the sub. Basicly if cell that got changed is in A column and value in the cell isn't empty I want to set formula to B column of that cells row(and use cells value in formula). However it halts in the If clause claiming type mismatches.

Where it is missing? My guess is that value but didn't range objects have value?

(btw how would this operate if more than one cell gets changed. Say copy&paste order?)