diff --git a/R/datasheet.R b/R/datasheet.R
index 98ffacfa..6b60ab98 100644
--- a/R/datasheet.R
+++ b/R/datasheet.R
@@ -898,6 +898,7 @@ setMethod("datasheet",
       }
     }
     
+    sheet <- sheet[rowSums(is.na(sheet)) != ncol(sheet), ]
     outSheetList[[cName]] <- sheet
     
     # return single row datasheets as named vectors (if not for multiple scenarios)