Is this possible?

I have a data entry sheet that I would like to use to generate other sheets within the same workbook, and the information that I would like to copy across all of them would be a name, phone number, etc. The only way I have figured out how to do this is a simple IF(A1=1, D4=A1) type of formula, however here is where it gets complicated: I want to be able to organize the given information on the sheet to adjacent cells.

Example:
-Customer gives me phone number, e-mail which I put into cells B2, and B4 (B3 is for a fax number that is not supplied). I put a 1 into A2, and A4 to let the formula know I want the data copied, however when it is pushed through the program the result is a blank cell between my information (missing information in B3). What is the simplest way for me that will remove the empty spaces between the data?

I'm thinking about a way to code a function but have no idea how to start.

m=1
n=1
Check A1:A5 for 1, if A(n) = 1 then copy B(n) to D(m), m+1

Does this make sense?