Sorting data from a master sheet to multiple sheets depending on values in a given column

I do not see any syntax error with this line

  ActiveSheet.Range("A1:H1").Value = Array("anlæg", "areal", _
   "etage", "rumtype", "rumnummer", "luftskifte", "højde", "luftmængde")